Metrics for Destination given bearing on a great circle

start0.0ms (0%)

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

analyze1.5s (13.3%)

Memory

11.5MiB live, 2 027.4MiB allocated; 232ms 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.6s (24%)

Memory

33.0MiB live, 4 379.9MiB allocated; 330ms collecting garbage

Samples

2.2s

8 256×

valid

Precisions

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

ival-sin: 753.0ms (41% of total)

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

ival-mult!: 273.0ms (14.9% of total)

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

ival-atan2: 73.0ms (4% of total)

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

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

adjust: 2.0ms (0.1% of total)

Bogosity

explain345.0ms (3.1%)

Memory

-23.7MiB live, 743.6MiB allocated; 38ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Example	Underpredictions	Example	Subexpression
6	-	4	(-8.933918472531749e-281 -5.622152200998947e+239 -2.815906984130466e-250 2.124806274184557e-136 -1.068374633522896e-235)	`(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))`
2	-	0	-	`(asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))`
0	-	0	-	`(cos.f64 theta)`
0	-	0	-	`theta`
0	-	0	-	`(sin.f64 theta)`
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	-	`(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))`
0	-	0	-	`delta`
0	-	0	-	`(sin.f64 phi1)`
0	-	0	-	`(*.f64 (sin.f64 phi1) (cos.f64 delta))`
0	-	0	-	`lambda1`
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	-	`(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))`
0	-	0	-	`(*.f64 (sin.f64 theta) (sin.f64 delta))`
0	-	0	-	`phi1`
0	-	0	-	`(*.f64 (cos.f64 phi1) (sin.f64 delta))`
0	-	0	-	`(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))`
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	-	`(sin.f64 delta)`
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	-	`(cos.f64 delta)`
0	-	0	-	`(cos.f64 phi1)`

Explanations

Click to see full explanations table

Operator	Subexpression	Explanation	Count
`asin.f64`	`(asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))`	sensitivity	2	1
`-.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	1

Confusion

	Predicted +	Predicted -
+	1	0
-	1	254

Precision

0.5

Recall

1.0

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	1	0	0
-	1	2	252

Precision?

0.25

Recall?

1.0

Freqs

test

number	freq
0	254
1	1
2	1

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

130.0ms	510×	0	valid
3.0ms	2×	1	valid

Compiler

Compiled 431 to 73 computations (83.1% saved)

Precisions

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

ival-sin: 41.0ms (39.2% of total)

ival-cos: 35.0ms (33.5% of total)

ival-mult!: 14.0ms (13.4% of total)

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

ival-atan2: 4.0ms (3.8% of total)

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

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

adjust: 0.0ms (0% of total)

preprocess50.0ms (0.5%)

Memory

2.0MiB live, 49.3MiB allocated; 3ms collecting garbage

Iterations

Useful iterations: 2 (0.0ms)

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

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

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

Status

Accuracy

Program

▶

99.7%

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

Symmetry

(abs phi2)

Compiler

Compiled 66 to 46 computations (30.3% saved)

series47.0ms (0.4%)

Memory

44.5MiB live, 127.1MiB allocated; 8ms 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
9.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))
5.0ms	delta	@	0	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)) (* (cos phi1) (sin delta)) (cos theta))
4.0ms	phi1	@	-inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)) (* (cos phi1) (sin delta)) (cos theta))
4.0ms	phi1	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)) (* (cos phi1) (sin delta)) (cos theta))
4.0ms	delta	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)) (* (cos phi1) (sin delta)) (cos theta))

rewrite317.0ms (2.9%)

Memory

56.7MiB live, 391.0MiB allocated; 151ms 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))

eval98.0ms (0.9%)

Memory: 6.7MiB live, 147.3MiB allocated; 73ms collecting garbage
Compiler: Compiled 11 913 to 1 973 computations (83.4% saved)

prune99.0ms (0.9%)

Memory

-46.8MiB live, 70.4MiB allocated; 94ms collecting garbage

Pruning

17 alts after pruning (17 fresh and 0 done)

	Pruned	Kept	Total
New	245	17	262
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	246	17	263

Accuracy

99.9%

Counts

263 → 17

Alt Table

Click to see full alt table

Status	Accuracy	Program
	66.7%	(/.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))))))
	48.8%	(/.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.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (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.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (+.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal -1 binary64))) (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%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	90.0%	(+.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)))))))
▶	92.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	53.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 phi1)) #s(literal 1 binary64))) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	92.8%	(+.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))))))
	81.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	90.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))))))) (cos.f64 delta))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	29.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))))))))) (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))
▶	71.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))))))))) lambda1)

Compiler

Compiled 1 642 to 950 computations (42.1% saved)

series126.0ms (1.2%)

Memory

11.8MiB live, 204.7MiB allocated; 51ms collecting garbage

Counts

45 → 347

Calls

Call 1

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

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

Calls

15 calls:

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

rewrite214.0ms (2%)

Memory

-30.8MiB live, 351.0MiB allocated; 24ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1356	16367
0	1444	14108
0	8509	13627

Stop Event

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

Counts

392 → 558

Calls

Call 1

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

eval157.0ms (1.4%)

Memory: 21.8MiB live, 257.8MiB allocated; 61ms collecting garbage
Compiler: Compiled 44 795 to 4 244 computations (90.5% saved)

prune58.0ms (0.5%)

Memory

27.5MiB live, 121.7MiB allocated; 3ms collecting garbage

Pruning

44 alts after pruning (42 fresh and 2 done)

	Pruned	Kept	Total
New	750	37	787
Fresh	7	5	12
Picked	3	2	5
Done	0	0	0
Total	760	44	804

Accuracy

99.9%

Counts

804 → 44

Alt Table

Click to see full alt table

Status	Accuracy	Program
	60.1%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin.f64 (+.f64 phi1 delta))) (sin.f64 phi1)))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin.f64 (+.f64 phi1 delta))) (sin.f64 phi1)))))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin.f64 (+.f64 phi1 delta))) (sin.f64 phi1))))))
	48.8%	(/.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))))))))
	42.2%	(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin.f64 (+.f64 phi1 delta))) (sin.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin.f64 (+.f64 phi1 delta))) (sin.f64 phi1)))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin.f64 (+.f64 phi1 delta))) (sin.f64 phi1))))) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin.f64 (+.f64 phi1 delta))) (sin.f64 phi1))))))))
	73.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)) (-.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)))))))
	89.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (fma.f64 (cos.f64 delta) (cos.f64 delta) (.f64 (neg.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) #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 (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) (+.f64 (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 2 binary64)) (.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))))))))
	92.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin.f64 (+.f64 phi1 delta))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 #s(approx (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin.f64 (+.f64 phi1 delta))) (sin.f64 phi1)) (.f64 #s(approx (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin.f64 (+.f64 phi1 delta))) (sin.f64 phi1)) (.f64 (cos.f64 delta) (.f64 #s(approx (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin.f64 (+.f64 phi1 delta))) (sin.f64 phi1))))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (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 (+.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) (-.f64 (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 2 binary64)) (.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)))))))))
	94.3%	(+.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) #s(approx (* (cos theta) (* (cos phi1) (sin delta))) (*.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)) (.f64 (pow.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) #s(literal 2 binary64)) (pow.f64 (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.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (exp.f64 (.f64 (log.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))))))
	81.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) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
▶	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal -1 binary64))) (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%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
▶	92.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 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))))))
	79.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) #s(approx (sin delta) (.f64 (fma.f64 (.f64 delta delta) #s(literal -1/6 binary64) #s(literal 1 binary64)) delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	84.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 #s(approx (cos theta) (fma.f64 (.f64 theta theta) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	91.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) (cos phi1)) (cos.f64 theta)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	94.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx ( (cos theta) (cos phi1)) (cos.f64 phi1)) (sin.f64 delta) (*.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 (sin.f64 phi1) #s(approx (+ ( (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	79.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 #s(approx (+ phi1 delta) (*.f64 (+.f64 (/.f64 phi1 delta) #s(literal 1 binary64)) delta))))))))
	90.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 #s(approx (+ phi1 delta) delta)))))))
	84.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (sin (+ phi1 delta)) (fma.f64 (fma.f64 (*.f64 (sin.f64 phi1) delta) #s(literal -1/2 binary64) (cos.f64 phi1)) delta (sin.f64 phi1))))))))
	53.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 phi1)) #s(literal 1 binary64))) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	85.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (sin phi1) phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	92.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	81.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	81.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
▶	90.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	81.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	75.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 delta delta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 delta delta)) #s(literal 1/6 binary64)) (.f64 delta delta) #s(literal 1 binary64)) delta))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	76.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #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))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	79.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
▶	92.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	76.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 #s(approx (sin theta) theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	89.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	88.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	29.1%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (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))))))
	29.1%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin 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)))))
	99.7%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (.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))
	29.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))))))))) (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)))))
✓	71.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))))))))) lambda1)

Compiler

Compiled 4 783 to 2 646 computations (44.7% saved)

series121.0ms (1.1%)

Memory

-7.5MiB live, 231.4MiB allocated; 13ms collecting garbage

Counts

59 → 429

Calls

Call 1

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

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

Calls

15 calls:

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

rewrite326.0ms (3%)

Memory

1.0MiB live, 380.2MiB allocated; 116ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1794	28953
0	1902	28245
0	8534	27035

Stop Event

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

Counts

488 → 572

Calls

Call 1

Inputs
(+.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 (.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) (+.f64 (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 2 binary64)) (.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 theta) (sin.f64 delta)) (cos.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) (+.f64 (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 2 binary64)) (.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 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 (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) (+.f64 (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 2 binary64)) (.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 (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)))
(pow.f64 (cos.f64 delta) #s(literal 3 binary64))
(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))
(.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (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 theta) (sin.f64 delta))
(cos.f64 theta)
(*.f64 (sin.f64 phi1) (cos.f64 delta))
(sin.f64 phi1)
(fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (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 2 binary64)) (.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 (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 2 binary64)) (.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))))
(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 2 binary64))
#s(literal 2 binary64)
(.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)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta)))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))
(.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))
(sin.f64 (+.f64 phi1 delta))
(+.f64 phi1 delta)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))))
(.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1))))
(fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx ( (sin phi1) (cos delta)) (sin.f64 phi1)))
(*.f64 (cos.f64 theta) (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) (.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal -1 binary64))) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal -1 binary64))) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))
(-.f64 (cos.f64 delta) (.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal -1 binary64))) (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 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal -1 binary64))) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))
(/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal -1 binary64)))
#s(literal 1 binary64)
(pow.f64 (sin.f64 phi1) #s(literal -1 binary64))
#s(literal -1 binary64)
(sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2)))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))))))
#s(approx lambda1 #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (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 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (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)) (/ (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (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)) (/ (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (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)) (/ (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 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) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (cos delta)))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (+ (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) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* phi1 (- (* -1 (/ (* (pow (cos theta) 3) (pow (sin delta) 3)) (pow (cos delta) 2))) (+ (* -1 (/ (* (cos theta) (* (sin 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 delta))) (+ (* -1 (/ (* (cos theta) (* (sin delta) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))) (pow (cos delta) 2))) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* 2 (* (cos theta) (sin 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) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (pow (cos delta) 3)))
#s(approx (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (+ (* -1 (* (pow phi1 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (pow (cos delta) 3))))
#s(approx (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi1 3) (- (* -1 (* phi1 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (pow (cos delta) 3))))
#s(approx (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi1 3) (- (* phi1 (- (* -1 (* phi1 (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))))) (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (pow (cos delta) 3))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* (pow (cos theta) 3) (pow (sin delta) 3))))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* phi1 (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 3) (pow (sin delta) 3))))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* phi1 (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (+ (* phi1 (+ (* -1 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* -1/2 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (+ (* -1/6 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))) (* (cos theta) (* (sin delta) (+ (* -1 (* (cos delta) (* (cos theta) (sin delta)))) (* -1/3 (* (cos delta) (* (cos theta) (sin delta)))))))))))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 3) (pow (sin delta) 3))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos 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 (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos 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 (+ (* (* (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 (* (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 delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (pow (cos delta) 2)))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ (* phi1 (* (cos delta) (* (cos theta) (sin delta)))) (pow (cos delta) 2))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))) (* (cos delta) (* (cos theta) (sin delta))))) (pow (cos delta) 2))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta))))) (pow (cos delta) 2))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (+ (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (pow (cos delta) 2)) (pow (cos delta) 2))))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* 2 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* phi1 (+ (* -1 (* (cos delta) (* (cos theta) (sin delta)))) (+ (* -2/3 (* (cos delta) (* (cos theta) (sin delta)))) (* -1/3 (* (cos delta) (* (cos theta) (sin delta))))))) (pow (cos delta) 2))))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (pow (cos delta) 2)) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (pow (cos delta) 2))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/3 (* phi1 (pow (cos delta) 2))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (pow (cos delta) 2))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (cos delta)))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (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 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (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 phi1) (sin delta)) (sin theta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (sin delta)))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (+ (sin delta) (* -1/2 (* (pow phi1 2) (sin delta))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow phi1 2) (sin delta))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin delta))) (* 1/24 (sin delta)))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* phi1 (cos delta))))))) (* (cos theta) (sin delta)))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (sin delta)))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (+ (sin delta) (* phi1 (cos delta)))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (+ (sin delta) (* phi1 (+ (cos delta) (* -1/2 (* phi1 (sin delta))))))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (+ (sin delta) (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (sin delta)) (* -1/6 (* phi1 (cos delta))))))))))
#s(approx (+ phi1 delta) #s(hole binary64 delta))
#s(approx (+ phi1 delta) #s(hole binary64 (+ delta phi1)))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* phi1 (cos delta))))))) (* (cos theta) (sin delta)))))
#s(approx (* (cos theta) (cos phi1)) #s(hole binary64 (cos theta)))
#s(approx (* (cos theta) (cos phi1)) #s(hole binary64 (+ (cos theta) (* -1/2 (* (pow phi1 2) (cos theta))))))
#s(approx (* (cos theta) (cos phi1)) #s(hole binary64 (+ (cos theta) (* (pow phi1 2) (+ (* -1/2 (cos theta)) (* 1/24 (* (pow phi1 2) (cos theta))))))))
#s(approx (* (cos theta) (cos phi1)) #s(hole binary64 (+ (cos theta) (* (pow phi1 2) (+ (* -1/2 (cos theta)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos theta))) (* 1/24 (cos theta)))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (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 (/ 1 (pow (sin phi1) -1)) #s(hole binary64 phi1))
#s(approx (/ 1 (pow (sin phi1) -1)) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (/ 1 (pow (sin phi1) -1)) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (/ 1 (pow (sin phi1) -1)) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6))))))
#s(approx (pow (sin phi1) -1) #s(hole binary64 (/ 1 phi1)))
#s(approx (pow (sin phi1) -1) #s(hole binary64 (/ (+ 1 (* 1/6 (pow phi1 2))) phi1)))
#s(approx (pow (sin phi1) -1) #s(hole binary64 (/ (+ 1 (* (pow phi1 2) (+ 1/6 (* 7/360 (pow phi1 2))))) phi1)))
#s(approx (pow (sin phi1) -1) #s(hole binary64 (/ (+ 1 (* (pow phi1 2) (+ 1/6 (* (pow phi1 2) (+ 7/360 (* 31/15120 (pow phi1 2))))))) phi1)))
#s(approx (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) #s(hole binary64 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* phi1 (cos delta))))))) (* (cos theta) (sin delta)))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* (cos theta) (sin delta)))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* 1/24 (* (pow phi1 2) (* (cos theta) (sin delta)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* 1/24 (* (cos theta) (sin delta))))))))))
#s(approx (* (* (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) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))))
#s(approx (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #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 (* (sin phi1) (cos delta)) #s(hole binary64 (* (cos delta) (sin phi1))))
#s(approx (sin phi1) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2)))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* (cos phi1) (sin delta))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (sin (+ delta phi1))))
#s(approx (+ phi1 delta) #s(hole binary64 phi1))
#s(approx (+ phi1 delta) #s(hole binary64 (* phi1 (+ 1 (/ delta phi1)))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (* (cos theta) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos theta))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (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 (/ 1 (pow (sin phi1) -1)) #s(hole binary64 (sin phi1)))
#s(approx (pow (sin phi1) -1) #s(hole binary64 (/ 1 (sin phi1))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* (cos phi1) (* (cos theta) (sin delta)))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (sin (- delta (* -1 phi1)))))
#s(approx (+ phi1 delta) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ delta phi1)) 1)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (sin delta) #s(hole binary64 delta))
#s(approx (sin delta) #s(hole binary64 (* delta (+ 1 (* -1/6 (pow delta 2))))))
#s(approx (sin delta) #s(hole binary64 (* delta (+ 1 (* (pow delta 2) (- (* 1/120 (pow delta 2)) 1/6))))))
#s(approx (sin delta) #s(hole binary64 (* delta (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/120 (* -1/5040 (pow delta 2)))) 1/6))))))
#s(approx delta #s(hole binary64 delta))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (/ (- 1 (pow (sin phi1) 6)) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (- (+ (* delta (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (/ 1 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (pow (sin phi1) 6) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (- (+ (* delta (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (* delta (- (* -1 (/ (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (/ 1 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (pow (sin phi1) 6) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (- (+ (* delta (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (* delta (- (+ (* -1 (/ (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (* delta (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- (* -1 (/ (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2))) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (/ 1 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (pow (sin phi1) 6) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))
#s(approx (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (- 1 (pow (sin phi1) 6))))
#s(approx (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (pow (sin phi1) 6))))
#s(approx (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (pow (sin phi1) 6))))
#s(approx (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* -1 (* delta (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))))) (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (pow (sin phi1) 6))))
#s(approx (pow (cos delta) 3) #s(hole binary64 1))
#s(approx (pow (cos delta) 3) #s(hole binary64 (+ 1 (* -3/2 (pow delta 2)))))
#s(approx (pow (cos delta) 3) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 7/8 (pow delta 2)) 3/2)))))
#s(approx (pow (cos delta) 3) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 7/8 (* -61/240 (pow delta 2)))) 3/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 (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (pow (sin phi1) 6)))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (+ (* delta (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (pow (sin phi1) 6))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (+ (* delta (+ (* delta (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (pow (sin phi1) 6))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (+ (* delta (+ (* delta (+ (* delta (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))))) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (pow (sin phi1) 6))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos 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 (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos 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 (+ (* (* (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 (* (sin phi1) (cos delta)) #s(hole binary64 (sin phi1)))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (+ (sin phi1) (* -1/2 (* (pow delta 2) (sin phi1))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (+ (sin phi1) (* (pow delta 2) (+ (* -1/2 (sin phi1)) (* 1/24 (* (pow delta 2) (sin phi1))))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (+ (sin phi1) (* (pow delta 2) (+ (* -1/2 (sin phi1)) (* (pow delta 2) (+ (* -1/720 (* (pow delta 2) (sin phi1))) (* 1/24 (sin phi1)))))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* delta (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* delta (- (+ (* -1 (pow (sin phi1) 2)) (+ (* delta (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) 1)) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* delta (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* delta (+ (* -1 (pow (sin phi1) 2)) (+ (* delta (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (pow (sin phi1) 4)))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (+ (* 2 (* delta (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))))) (pow (sin phi1) 4))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* delta (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (pow (sin phi1) 4))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* delta (+ (* delta (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (sin phi1) 4))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* -1 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1 (pow (sin phi1) 2)) (* delta (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (/ (- 1 (pow (sin phi1) 4)) (+ 1 (pow (sin phi1) 2)))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* delta (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))) (/ 1 (+ 1 (pow (sin phi1) 2)))) (/ (pow (sin phi1) 4) (+ 1 (pow (sin phi1) 2))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* delta (- (+ (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (* delta (- (* -1 (/ (+ 1 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ 1 (pow (sin phi1) 2)))) (+ (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (+ 1 (pow (sin phi1) 2))) (/ (* (- 1 (pow (sin phi1) 4)) (- (* -1/2 (pow (sin phi1) 2)) 1/2)) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))) (/ 1 (+ 1 (pow (sin phi1) 2)))) (/ (pow (sin phi1) 4) (+ 1 (pow (sin phi1) 2))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* delta (- (+ (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (* delta (- (+ (* -1 (/ (+ 1 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ 1 (pow (sin phi1) 2)))) (* delta (- (* -1 (/ (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ 1 (pow (sin phi1) 2)))) (+ (* -1/6 (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2))) (+ (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- (* -1 (/ (+ 1 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ 1 (pow (sin phi1) 2)))) (+ (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (+ 1 (pow (sin phi1) 2))) (/ (* (- 1 (pow (sin phi1) 4)) (- (* -1/2 (pow (sin phi1) 2)) 1/2)) (pow (+ 1 (pow (sin phi1) 2)) 2))))))) (+ 1 (pow (sin phi1) 2))) (/ (* (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2))) (- (* -1/2 (pow (sin phi1) 2)) 1/2)) (+ 1 (pow (sin phi1) 2)))))))) (+ (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (+ 1 (pow (sin phi1) 2))) (/ (* (- 1 (pow (sin phi1) 4)) (- (* -1/2 (pow (sin phi1) 2)) 1/2)) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))) (/ 1 (+ 1 (pow (sin phi1) 2)))) (/ (pow (sin phi1) 4) (+ 1 (pow (sin phi1) 2))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (cos phi1))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (+ (cos phi1) (* -1/6 (* (pow delta 2) (cos phi1)))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (+ (cos phi1) (* (pow delta 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow delta 2) (cos phi1)))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (+ (cos phi1) (* (pow delta 2) (+ (* -1/6 (cos phi1)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (sin phi1)))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* -1/2 (* delta (sin phi1))) (* (cos phi1) (cos theta)))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (* (cos phi1) (cos theta)))))) (* (cos phi1) (cos theta)))))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (sin phi1)))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (+ (sin phi1) (* delta (cos phi1)))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (+ (sin phi1) (* delta (+ (cos phi1) (* -1/2 (* delta (sin phi1))))))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (+ (sin phi1) (* delta (+ (cos phi1) (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (cos phi1))))))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* -1/2 (* delta (sin phi1))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (* (cos phi1) (cos theta)))))) (* (cos phi1) (cos theta)))))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (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 phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* -1/2 (* delta (sin phi1))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (* (cos phi1) (cos theta)))))) (* (cos phi1) (cos theta)))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* delta (* (cos phi1) (cos theta)))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* (cos phi1) (cos theta))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (cos theta))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* 1/120 (* (cos phi1) (cos theta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (sin delta) #s(hole binary64 (sin delta)))
#s(approx (pow (cos delta) 3) #s(hole binary64 (pow (cos delta) 3)))
#s(approx (cos delta) #s(hole binary64 (cos delta)))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ phi1 delta) #s(hole binary64 (* delta (+ 1 (/ phi1 delta)))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (sin (- phi1 (* -1 delta)))))
#s(approx (+ phi1 delta) #s(hole binary64 (* -1 (* delta (- (* -1 (/ phi1 delta)) 1)))))
#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) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (/ (pow (cos delta) 3) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (/ (pow (cos delta) 3) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (+ (/ (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)) (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (/ (pow (cos delta) 3) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))))))
#s(approx (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (- (+ (* -1 (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (pow (cos delta) 3)) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (pow (cos delta) 3)) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (- (+ (* (pow theta 2) (- (* (pow theta 2) (- (* -1 (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (pow (cos delta) 3)) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (+ (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (+ (* (pow theta 2) (+ (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (+ (* (pow theta 2) (+ (* (pow theta 2) (+ (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (* (* (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 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) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow theta 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow theta 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (+ (* (pow theta 2) (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow theta 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow theta 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (+ (* (pow theta 2) (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (+ (* -1 (* (pow theta 2) (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* (pow theta 2) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* (pow theta 2) (+ (* (pow theta 2) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (pow theta 2) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* (pow theta 2) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))) (/ (pow (cos delta) 2) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (/ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* 1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2)))))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))) (/ (pow (cos delta) 2) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (/ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* -1 (/ (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* 1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2)))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/720 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))) (* 1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))))) (+ (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* 1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2)))))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))) (/ (pow (cos delta) 2) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (/ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (cos theta) (cos phi1)) #s(hole binary64 (cos phi1)))
#s(approx (* (cos theta) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* -1/2 (* (pow theta 2) (cos phi1))))))
#s(approx (* (cos theta) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (pow theta 2) (+ (* -1/2 (cos phi1)) (* 1/24 (* (pow theta 2) (cos phi1))))))))
#s(approx (* (cos theta) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (pow theta 2) (+ (* -1/2 (cos phi1)) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (cos phi1))) (* 1/24 (cos phi1)))))))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (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 (* (/ 1 (pow (sin phi1) -1)) (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 phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* (cos phi1) (sin delta))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta)))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta))))))))))
#s(approx (sin 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 (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) (+.f64 (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 2 binary64)) (.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 theta) (sin.f64 delta)) (cos.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) (+.f64 (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 2 binary64)) (.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 (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) (+.f64 (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 2 binary64)) (.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 theta) (sin.f64 delta)) (cos.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) (+.f64 (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 2 binary64)) (.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 theta) (sin.f64 delta)) (cos.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) (+.f64 (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 2 binary64)) (.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 theta) (sin.f64 delta)) (cos.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) (+.f64 (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 2 binary64)) (.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 (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) (+.f64 (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 2 binary64)) (.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 (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) (+.f64 (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 2 binary64)) (.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 theta) (sin.f64 delta)) (cos.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) (+.f64 (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 2 binary64)) (.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 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 (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)))) (neg.f64 (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (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 2 binary64)) (.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) (+.f64 (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 2 binary64)) (.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)) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (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 2 binary64)) (.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 (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) (+.f64 (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 2 binary64)) (.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 (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (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 2 binary64)) (.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 (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 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (.f64 (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)) (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)))) (+.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))))
(/.f64 (-.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) #s(literal 3 binary64)) (pow.f64 (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)) #s(literal 3 binary64))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (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)) (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)) (.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))))))
(-.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)))
(*.f64 (pow.f64 (cos.f64 delta) #s(literal 3/2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3/2 binary64)))
(*.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (cos.f64 delta))
(*.f64 (cos.f64 delta) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))
(pow.f64 (cos.f64 delta) #s(literal 3 binary64))
(exp.f64 (*.f64 (log.f64 (cos.f64 delta)) #s(literal 3 binary64)))
(sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 delta))
(cos.f64 delta)
#s(literal 3 binary64)
(.f64 (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/2 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/2 binary64)))
(.f64 (pow.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 (sin.f64 phi1) #s(literal 3 binary64)))
(.f64 (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 2 binary64)) (.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 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) (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 2 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))
(exp.f64 (.f64 (log.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)))
(.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 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (-.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (cos.f64 delta))))
(/.f64 (+.f64 (pow.f64 (.f64 (.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))))))
(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 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))
(*.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 (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)
(/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (+.f64 (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 2 binary64)) (.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 (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 2 binary64)) (.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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (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 2 binary64)) (.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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (+.f64 (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 2 binary64)) (.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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (-.f64 (.f64 (+.f64 (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 2 binary64)) (.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 (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 2 binary64)) (.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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (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 2 binary64)) (.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))))))))
(fma.f64 (pow.f64 (cos.f64 delta) #s(literal 1 binary64)) (pow.f64 (cos.f64 delta) #s(literal 1 binary64)) (+.f64 (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 2 binary64)) (.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)))))
(fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (cos.f64 delta)) (+.f64 (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 2 binary64)) (.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)))))
(fma.f64 (fabs.f64 (cos.f64 delta)) (fabs.f64 (cos.f64 delta)) (+.f64 (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 2 binary64)) (.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)))))
(fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (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 2 binary64)) (.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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (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 2 binary64)) (.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 (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 2 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 2 binary64))) (.f64 (.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 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))) (-.f64 (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 2 binary64)) (.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 (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 2 binary64)) #s(literal 3 binary64)) (pow.f64 (.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 (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 2 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 2 binary64)) (-.f64 (.f64 (.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 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) (.f64 (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 2 binary64)) (.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)))))))
(fma.f64 (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 1 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 1 binary64)) (.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))))
(fma.f64 (pow.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.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))))
(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 (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 2 binary64)) (.f64 (neg.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 (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 2 binary64)) (.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 (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 1 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 1 binary64)))
(.f64 (pow.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(.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)))
(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 2 binary64))
(exp.f64 (.f64 (log.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 2 binary64)))
#s(literal 2 binary64)
(.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 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin 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)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin 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)) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta)))) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta)))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))))) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))) (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))
(.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))
(fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
(sin.f64 (+.f64 phi1 delta))
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(/.f64 (-.f64 (.f64 phi1 phi1) (.f64 delta delta)) (-.f64 phi1 delta))
(/.f64 (+.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 delta #s(literal 3 binary64))) (fma.f64 phi1 phi1 (-.f64 (.f64 delta delta) (.f64 phi1 delta))))
(+.f64 phi1 delta)
(/.f64 (-.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 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))))))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1))))))))
(/.f64 (+.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 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx ( (sin phi1) (cos delta)) (sin.f64 phi1)))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1))))))) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx ( (sin phi1) (cos delta)) (sin.f64 phi1))))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx ( (sin phi1) (cos delta)) (sin.f64 phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx ( (sin phi1) (cos delta)) (sin.f64 phi1))))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))))
(.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta))) (.f64 #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))) (-.f64 (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (.f64 #s(approx ( (sin phi1) (cos delta)) (sin.f64 phi1)) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) #s(approx ( (sin phi1) (cos delta)) (sin.f64 phi1))))))
(fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx ( (sin phi1) (cos delta)) (sin.f64 phi1)))
(+.f64 (.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))
(*.f64 (cos.f64 theta) (cos.f64 phi1))
(/.f64 (+.f64 (cos.f64 (+.f64 theta phi1)) (cos.f64 (-.f64 theta phi1))) #s(literal 2 binary64))
#s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.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 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.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 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.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 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))) (+.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))
(-.f64 (cos.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))
(pow.f64 (pow.f64 (sin.f64 phi1) #s(literal -1 binary64)) #s(literal -1 binary64))
(pow.f64 (sin.f64 phi1) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (pow.f64 (sin.f64 phi1) #s(literal -1 binary64))))
(/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal -1 binary64)))
#s(literal 1 binary64)
(*.f64 (pow.f64 (sin.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal -1/2 binary64)))
(pow.f64 (sin.f64 phi1) #s(literal -1 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (sin.f64 phi1)))
(/.f64 #s(literal 1 binary64) (sin.f64 phi1))
(exp.f64 (*.f64 (log.f64 (sin.f64 phi1)) #s(literal -1 binary64)))
#s(literal -1 binary64)
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))
(fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))
(sin.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (neg.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta))) (cos.f64 theta)))
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))
(asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))
(fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))
(sin.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (neg.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta))) (cos.f64 theta)))
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))))
#s(approx lambda1 lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (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) (cos phi1)) (sin delta)) (* (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) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (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 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) lambda1))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (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 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))) lambda1))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))) lambda1))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))))) (.f64 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) (* (/ 1 (pow (sin phi1) -1)) (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) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))) lambda1))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (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 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (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 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (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) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#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) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) (cos.f64 delta))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) (-.f64 (cos.f64 delta) (.f64 #s(literal 1 binary64) (.f64 phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 (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) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.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) (+.f64 (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 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (+.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.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)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))))))) (+.f64 (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) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)))
#s(approx (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi1 #s(literal 3 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) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (fma.f64 (pow.f64 phi1 #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.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) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (fma.f64 (pow.f64 phi1 #s(literal 3 binary64)) (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 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 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.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 theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (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 (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))))))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) (.f64 phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) (.f64 phi1 (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))) (sin phi1)) (.f64 phi1 (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) (.f64 phi1 (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (fma.f64 #s(literal -1/3 binary64) (.f64 phi1 (cos.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (+ (* (* (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 (* (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 (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (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) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) (fma.f64 phi1 (fma.f64 phi1 (+.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.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) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 delta) (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 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.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 (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) (.f64 phi1 (.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) (.f64 phi1 (fma.f64 phi1 (+.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) (.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 delta) (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 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) (.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal 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)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (cos.f64 delta) (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 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (.f64 (.f64 phi1 phi1) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal 2 binary64) (.f64 phi1 (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (.f64 (.f64 phi1 phi1) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (.f64 (.f64 phi1 phi1) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (fma.f64 #s(literal -2/3 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (.f64 phi1 (.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (.f64 phi1 (fma.f64 phi1 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (.f64 (cos.f64 delta) (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))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/3 binary64) (.f64 phi1 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (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)))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (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) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 delta))) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (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 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi1 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (fma.f64 (sin.f64 delta) (sin.f64 theta) (.f64 (.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 (* (* (cos phi1) (sin delta)) (sin theta)) (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) (sin delta)) (sin.f64 delta))
#s(approx (* (cos phi1) (sin delta)) (-.f64 (sin.f64 delta) (.f64 #s(literal 1/2 binary64) (.f64 (*.f64 phi1 phi1) (sin.f64 delta)))))
#s(approx (* (cos phi1) (sin delta)) (+.f64 (sin.f64 delta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 delta) (.f64 #s(literal 1/24 binary64) (.f64 (*.f64 phi1 phi1) (sin.f64 delta)))))))
#s(approx (* (cos phi1) (sin delta)) (+.f64 (sin.f64 delta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 delta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi1 phi1) (sin.f64 delta)) (*.f64 #s(literal 1/24 binary64) (sin.f64 delta))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 #s(literal 1 binary64) (.f64 phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 delta))) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (cos.f64 delta))) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (fma.f64 phi1 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (fma.f64 #s(literal -1/3 binary64) (.f64 phi1 (cos.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 phi1 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 phi1 (-.f64 (cos.f64 delta) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))) (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 delta)))))) (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (sin (+ phi1 delta)) (sin.f64 delta))
#s(approx (sin (+ phi1 delta)) (+.f64 (sin.f64 delta) (*.f64 phi1 (cos.f64 delta))))
#s(approx (sin (+ phi1 delta)) (+.f64 (sin.f64 delta) (.f64 phi1 (-.f64 (cos.f64 delta) (.f64 #s(literal 1/2 binary64) (*.f64 phi1 (sin.f64 delta)))))))
#s(approx (sin (+ phi1 delta)) (+.f64 (sin.f64 delta) (.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 delta) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 delta)))))))))
#s(approx (+ phi1 delta) delta)
#s(approx (+ phi1 delta) (+.f64 delta phi1))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))))) (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) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))) (cos.f64 delta))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))) (-.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) (cos phi1)) (sin delta)) (* (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) (cos phi1)) (sin delta)) (* (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) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (.f64 phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (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) (cos phi1)) (sin delta)) (* (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) (cos phi1)) (sin delta)) (* (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) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 phi1 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 phi1 (-.f64 (cos.f64 delta) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))) (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 delta)))))) (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (cos theta) (cos phi1)) (cos.f64 theta))
#s(approx (* (cos theta) (cos phi1)) (-.f64 (cos.f64 theta) (.f64 #s(literal 1/2 binary64) (.f64 (*.f64 phi1 phi1) (cos.f64 theta)))))
#s(approx (* (cos theta) (cos phi1)) (+.f64 (cos.f64 theta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (cos.f64 theta) (.f64 #s(literal 1/24 binary64) (.f64 (*.f64 phi1 phi1) (cos.f64 theta)))))))
#s(approx (* (cos theta) (cos phi1)) (+.f64 (cos.f64 theta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (cos.f64 theta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi1 phi1) (cos.f64 theta)) (*.f64 #s(literal 1/24 binary64) (cos.f64 theta))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 #s(literal 1 binary64) (.f64 phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 delta))) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (cos.f64 delta))) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (fma.f64 phi1 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (fma.f64 #s(literal -1/3 binary64) (.f64 phi1 (cos.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (/ 1 (pow (sin phi1) -1)) phi1)
#s(approx (/ 1 (pow (sin phi1) -1)) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (*.f64 phi1 phi1)))))
#s(approx (/ 1 (pow (sin phi1) -1)) (.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 (/ 1 (pow (sin phi1) -1)) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (*.f64 phi1 phi1)))) #s(literal 1/6 binary64))))))
#s(approx (pow (sin phi1) -1) (pow.f64 phi1 #s(literal -1 binary64)))
#s(approx (pow (sin phi1) -1) (/.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1))) phi1))
#s(approx (pow (sin phi1) -1) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/6 binary64) (.f64 #s(literal 7/360 binary64) (.f64 phi1 phi1))))) phi1))
#s(approx (pow (sin phi1) -1) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/6 binary64) (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 7/360 binary64) (.f64 #s(literal 31/15120 binary64) (.f64 phi1 phi1))))))) phi1))
#s(approx (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 phi1 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 phi1 (-.f64 (cos.f64 delta) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))) (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 delta)))))) (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi1 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (.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 phi1) (sin delta)) (cos theta)) (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) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64)))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) (.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 (* (sin phi1) (cos delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))
#s(approx (sin phi1) (sin.f64 phi1))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) (fma.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))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (.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 (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (* (cos phi1) (sin delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (sin (+ phi1 delta)) (sin.f64 (+.f64 delta phi1)))
#s(approx (+ phi1 delta) phi1)
#s(approx (+ phi1 delta) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (/.f64 delta phi1))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (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) (cos phi1)) (sin delta)) (* (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) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (cos theta) (cos phi1)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (/ 1 (pow (sin phi1) -1)) (sin.f64 phi1))
#s(approx (pow (sin phi1) -1) (pow.f64 (sin.f64 phi1) #s(literal -1 binary64)))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (sin (+ phi1 delta)) (sin.f64 (-.f64 delta (*.f64 #s(literal -1 binary64) phi1))))
#s(approx (+ phi1 delta) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 delta phi1)) #s(literal 1 binary64)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (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) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) (-.f64 (fma.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal -1 binary64))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) #s(literal 1 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal -1 binary64))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))) (/.f64 (fma.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) #s(literal 1 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))))) (.f64 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) #s(literal 1 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) #s(literal 1 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal -1 binary64))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))
#s(approx (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (-.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (.f64 delta (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (-.f64 (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))))))) (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (pow (cos delta) 3) #s(literal 1 binary64))
#s(approx (pow (cos delta) 3) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -3/2 binary64) (.f64 delta delta))))
#s(approx (pow (cos delta) 3) (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 7/8 binary64) (.f64 delta delta)) #s(literal 3/2 binary64)))))
#s(approx (pow (cos delta) 3) (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 (.f64 delta delta) (+.f64 #s(literal 7/8 binary64) (.f64 #s(literal -61/240 binary64) (.f64 delta delta)))) #s(literal 3/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 (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (fma.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (fma.f64 delta (fma.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (fma.f64 delta (fma.f64 delta (fma.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) (fma.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (.f64 delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) (fma.f64 delta (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal -1/6 binary64) (.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (+ (* (* (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 (* (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 (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) (+.f64 #s(literal 1 binary64) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) (+.f64 #s(literal 1 binary64) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) (+.f64 #s(literal 1 binary64) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 delta (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 delta (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (fma.f64 #s(literal 2 binary64) (.f64 delta (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 delta (fma.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (fma.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (fma.f64 delta (fma.f64 #s(literal -1 binary64) (.f64 delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (fma.f64 delta (fma.f64 delta (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 delta (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (-.f64 (fma.f64 delta (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64)))) (pow.f64 (+.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 4 binary64)) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (-.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64)))) (pow.f64 (+.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 4 binary64)) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64))) (/.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (-.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (.f64 (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64)))) (-.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (-.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64)))) (pow.f64 (+.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 4 binary64)) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (.f64 delta (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 delta delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (sin.f64 theta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (.f64 delta (fma.f64 (cos.f64 phi1) (sin.f64 theta) (.f64 (.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 (* (* (cos phi1) (sin delta)) (sin theta)) (.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 (* (cos phi1) (sin delta)) (*.f64 delta (cos.f64 phi1)))
#s(approx (* (cos phi1) (sin delta)) (.f64 delta (-.f64 (cos.f64 phi1) (.f64 #s(literal 1/6 binary64) (.f64 (.f64 delta delta) (cos.f64 phi1))))))
#s(approx (* (cos phi1) (sin delta)) (.f64 delta (+.f64 (cos.f64 phi1) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 delta delta) (cos.f64 phi1))))))))
#s(approx (* (cos phi1) (sin delta)) (.f64 delta (+.f64 (cos.f64 phi1) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 delta delta) (cos.f64 phi1)) (.f64 #s(literal 1/120 binary64) (cos.f64 phi1)))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (.f64 delta (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (-.f64 (.f64 delta (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (.f64 delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 delta (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal -1/6 binary64) (.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 phi1))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+.f64 (sin.f64 phi1) (.f64 delta (.f64 (cos.f64 phi1) (cos.f64 theta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+.f64 (sin.f64 phi1) (.f64 delta (fma.f64 #s(literal -1/2 binary64) (.f64 delta (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+.f64 (sin.f64 phi1) (.f64 delta (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal -1/6 binary64) (.f64 delta (.f64 (cos.f64 phi1) (cos.f64 theta))))) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))
#s(approx (sin (+ phi1 delta)) (sin.f64 phi1))
#s(approx (sin (+ phi1 delta)) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1))))
#s(approx (sin (+ phi1 delta)) (+.f64 (sin.f64 phi1) (.f64 delta (-.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (*.f64 delta (sin.f64 phi1)))))))
#s(approx (sin (+ phi1 delta)) (+.f64 (sin.f64 phi1) (.f64 delta (+.f64 (cos.f64 phi1) (.f64 delta (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal -1/6 binary64) (.f64 delta (cos.f64 phi1)))))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (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) (cos phi1)) (sin delta)) (* (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) (cos phi1)) (sin delta)) (* (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) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (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) (cos phi1)) (sin delta)) (* (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) (cos phi1)) (sin delta)) (* (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) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (sin.f64 phi1))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (+.f64 (sin.f64 phi1) (.f64 delta (.f64 (cos.f64 phi1) (cos.f64 theta)))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (+.f64 (sin.f64 phi1) (.f64 delta (fma.f64 #s(literal -1/2 binary64) (.f64 delta (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (+.f64 (sin.f64 phi1) (.f64 delta (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal -1/6 binary64) (.f64 delta (.f64 (cos.f64 phi1) (cos.f64 theta))))) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (.f64 delta (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (-.f64 (.f64 delta (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (.f64 delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 delta (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal -1/6 binary64) (.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 phi1))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+.f64 (sin.f64 phi1) (.f64 delta (.f64 (cos.f64 phi1) (cos.f64 theta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+.f64 (sin.f64 phi1) (.f64 delta (fma.f64 #s(literal -1/2 binary64) (.f64 delta (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+.f64 (sin.f64 phi1) (.f64 delta (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal -1/6 binary64) (.f64 delta (.f64 (cos.f64 phi1) (cos.f64 theta))))) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (.f64 delta (.f64 (cos.f64 phi1) (cos.f64 theta))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (.f64 delta (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 delta delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (.f64 delta (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 phi1) (sin delta)) (cos theta)) (.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 (pow (cos delta) 3) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)))
#s(approx (cos delta) (cos.f64 delta))
#s(approx (* (cos theta) (sin delta)) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (+ phi1 delta) (*.f64 delta (+.f64 #s(literal 1 binary64) (/.f64 phi1 delta))))
#s(approx (sin (+ phi1 delta)) (sin.f64 (-.f64 phi1 (*.f64 #s(literal -1 binary64) delta))))
#s(approx (+ phi1 delta) (.f64 #s(literal -1 binary64) (.f64 delta (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 phi1 delta)) #s(literal 1 binary64)))))
#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) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) (.f64 (sin.f64 phi1) (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))) (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 (sin.f64 phi1) (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))) (sin phi1)) (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 (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) (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 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) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.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 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)))))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)))))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64))))))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal -1/720 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)))))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)))))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (.f64 theta (.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (.f64 theta (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (.f64 theta (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.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 (* (* (cos phi1) (sin delta)) (sin theta)) (.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 (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (-.f64 (cos.f64 delta) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (+.f64 (cos.f64 delta) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1/24 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (+.f64 (cos.f64 delta) (.f64 (.f64 theta theta) (-.f64 (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal 1/720 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.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 (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.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 (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.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 delta) (* (sin phi1) (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (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) (cos phi1)) (sin delta)) (* (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) (cos phi1)) (sin delta)) (* (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) (cos phi1)) (sin delta)) (* (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) (cos phi1)) (sin delta)) (* (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) (cos phi1)) (sin delta)) (* (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) (cos phi1)) (sin delta)) (* (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) (cos phi1)) (sin delta)) (* (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) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (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) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 theta theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))))))
#s(approx (+ (* (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))))
#s(approx (* (cos theta) (cos phi1)) (cos.f64 phi1))
#s(approx (* (cos theta) (cos phi1)) (-.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 (*.f64 theta theta) (cos.f64 phi1)))))
#s(approx (* (cos theta) (cos phi1)) (+.f64 (cos.f64 phi1) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi1) (.f64 #s(literal 1/24 binary64) (.f64 (*.f64 theta theta) (cos.f64 phi1)))))))
#s(approx (* (cos theta) (cos phi1)) (+.f64 (cos.f64 phi1) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi1) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 theta theta) (cos.f64 phi1)) (*.f64 #s(literal 1/24 binary64) (cos.f64 phi1))))))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (-.f64 (cos.f64 delta) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (+.f64 (cos.f64 delta) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1/24 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (+.f64 (cos.f64 delta) (.f64 (.f64 theta theta) (-.f64 (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal 1/720 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))))
#s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.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 (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.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 (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.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 phi1) (sin delta)) (cos theta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 theta theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (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))

eval194.0ms (1.8%)

Memory: -25.0MiB live, 355.2MiB allocated; 44ms collecting garbage
Compiler: Compiled 85 012 to 6 189 computations (92.7% saved)

prune80.0ms (0.7%)

Memory

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

Pruning

58 alts after pruning (54 fresh and 4 done)

	Pruned	Kept	Total
New	987	33	1 020
Fresh	16	21	37
Picked	3	2	5
Done	0	2	2
Total	1 006	58	1 064

Accuracy

99.9%

Counts

1 064 → 58

Alt Table

Click to see full alt table

Status	Accuracy	Program
	58.4%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta)))))
	40.5%	(/.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 (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin 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)) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta)))) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta)))))))
	48.8%	(/.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))))))))
	73.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)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	73.4%	(+.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 (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	89.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	88.9%	(+.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 (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (fma.f64 (cos.f64 delta) (cos.f64 delta) (.f64 (neg.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) #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 (-.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) #s(literal 3 binary64)) (pow.f64 (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)) #s(literal 3 binary64))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (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)) (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)) (.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) (+.f64 (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 2 binary64)) (.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))))))))
	84.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 (.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) (+.f64 (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 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 #s(approx (cos theta) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 theta theta)))) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))))
	91.3%	(+.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 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 3 binary64))) #s(approx (+ ( (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
	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)) (.f64 (pow.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) #s(literal 2 binary64)) (pow.f64 (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 (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (cos.f64 delta)) (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) (+.f64 (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 2 binary64)) (.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))))))))
	74.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (exp.f64 (.f64 (log.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))))))
	81.3%	(+.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 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal -1 binary64))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))
	92.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (sin.f64 (+.f64 theta (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))))))
✓	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
✓	92.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 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))))))
	79.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) #s(approx (sin delta) (.f64 (fma.f64 (.f64 delta delta) #s(literal -1/6 binary64) #s(literal 1 binary64)) delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	84.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 #s(approx (cos theta) (fma.f64 (.f64 theta theta) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	91.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) (cos phi1)) (cos.f64 theta)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	91.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx ( (cos theta) (cos phi1)) (cos.f64 theta)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))))))
	94.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx ( (cos theta) (cos phi1)) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	92.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx ( (cos theta) (cos phi1)) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))))))
	90.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	90.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 #s(approx (+ phi1 delta) delta)))))))
	53.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 phi1)) #s(literal 1 binary64))) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	92.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (/ 1 (pow (sin phi1) -1)) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	82.4%	(+.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 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))))))
	81.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	94.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))
	78.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))))))
✓	90.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	80.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta)))))))
	79.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(approx (cos delta) #s(literal 1 binary64)))))
	81.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	78.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1))))) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	75.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 delta delta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 delta delta)) #s(literal 1/6 binary64)) (.f64 delta delta) #s(literal 1 binary64)) delta))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	76.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #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))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	77.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
▶	94.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))
	90.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	90.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
▶	76.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(approx (sin theta) theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	74.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 #s(approx (sin theta) (.f64 theta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 theta theta))))) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	75.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 #s(approx (sin theta) theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	88.7%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin delta)) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	89.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	89.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx ( (sin phi1) (cos delta)) (sin.f64 phi1)))))))
▶	88.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	99.7%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (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 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) lambda1))))
▶	29.1%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (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))))))
	29.1%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin 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)))))
	99.7%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (.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))
	29.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))))))))) (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)))))
✓	71.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))))))))) lambda1)

Compiler

Compiled 6 949 to 3 521 computations (49.3% saved)

series265.0ms (2.4%)

Memory

-3.7MiB live, 471.9MiB allocated; 36ms collecting garbage

Counts

65 → 469

Calls

Call 1

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

Outputs
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 9))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 6)) (pow (cos delta) 6))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 9))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 6)) (pow (cos delta) 6)))))))))
#s(approx lambda1 #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (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 (* (* (cos phi1) (sin delta)) (sin theta)) (- (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)) (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 9))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 6)) (pow (cos delta) 6)))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (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)) (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 9))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 6)) (pow (cos delta) 6)))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (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)) (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 9))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 6)) (pow (cos delta) 6))))))))
#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 (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (cos delta)))
#s(approx (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (+ (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 (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1 (/ (* (cos theta) (* (sin 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 delta))) (+ (* -1 (/ (* (cos theta) (* (sin delta) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))) (pow (cos delta) 2))) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (+ (* 2 (* (cos theta) (sin delta))) (/ (* (pow (cos theta) 3) (pow (sin delta) 3)) (pow (cos delta) 2))))))))) (+ (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 (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) #s(hole binary64 (pow (cos delta) 3)))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) #s(hole binary64 (+ (* -1 (* (pow phi1 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (pow (cos delta) 3))))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) #s(hole binary64 (+ (* (pow phi1 3) (- (* -1 (* phi1 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (pow (cos delta) 3))))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) #s(hole binary64 (+ (* (pow phi1 3) (- (* phi1 (- (* -1 (* phi1 (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))))) (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (pow (cos delta) 3))))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) #s(hole binary64 (pow (cos delta) 9)))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) #s(hole binary64 (+ (* -1 (* (pow phi1 9) (* (pow (cos theta) 9) (pow (sin delta) 9)))) (pow (cos delta) 9))))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) #s(hole binary64 (+ (* (pow phi1 9) (- (* -1 (* phi1 (+ (* 8 (* (cos delta) (* (pow (cos theta) 8) (pow (sin delta) 8)))) (* (cos delta) (* (pow (cos theta) 8) (pow (sin delta) 8)))))) (* (pow (cos theta) 9) (pow (sin delta) 9)))) (pow (cos delta) 9))))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) #s(hole binary64 (* (pow phi1 9) (* (pow (cos theta) 9) (pow (sin delta) 9)))))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) #s(hole binary64 (* (pow phi1 9) (+ (* phi1 (+ (* 8 (* (cos delta) (* (pow (cos theta) 8) (pow (sin delta) 8)))) (* (cos delta) (* (pow (cos theta) 8) (pow (sin delta) 8))))) (* (pow (cos theta) 9) (pow (sin delta) 9))))))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) #s(hole binary64 (* (pow phi1 9) (+ (* phi1 (+ (* 8 (* (cos delta) (* (pow (cos theta) 8) (pow (sin delta) 8)))) (+ (* phi1 (+ (* -3/2 (* (pow (cos theta) 9) (pow (sin delta) 9))) (+ (* -1/2 (* (pow (cos theta) 9) (pow (sin delta) 9))) (+ (* 8 (* (pow (cos delta) 2) (* (pow (cos theta) 7) (pow (sin delta) 7)))) (* (cos theta) (* (sin delta) (+ (* 2 (* (pow (cos theta) 4) (* (pow (sin delta) 4) (+ (* 2 (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))) (* 4 (* (pow (cos delta) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))))) (* 16 (* (pow (cos delta) 2) (* (pow (cos theta) 6) (pow (sin delta) 6))))))))))) (* (cos delta) (* (pow (cos theta) 8) (pow (sin delta) 8)))))) (* (pow (cos theta) 9) (pow (sin delta) 9))))))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) #s(hole binary64 (* (pow phi1 9) (+ (* phi1 (+ (* 8 (* (cos delta) (* (pow (cos theta) 8) (pow (sin delta) 8)))) (+ (* phi1 (+ (* -3/2 (* (pow (cos theta) 9) (pow (sin delta) 9))) (+ (* -1/2 (* (pow (cos theta) 9) (pow (sin delta) 9))) (+ (* 8 (* (pow (cos delta) 2) (* (pow (cos theta) 7) (pow (sin delta) 7)))) (+ (* phi1 (+ (* -4 (* (cos delta) (* (pow (cos theta) 8) (pow (sin delta) 8)))) (+ (* -3/2 (+ (* 8 (* (cos delta) (* (pow (cos theta) 8) (pow (sin delta) 8)))) (* (cos delta) (* (pow (cos theta) 8) (pow (sin delta) 8))))) (+ (* -1/6 (* (cos delta) (* (pow (cos theta) 8) (pow (sin delta) 8)))) (+ (* (cos delta) (+ (* 2 (* (pow (cos theta) 4) (* (pow (sin delta) 4) (+ (* 2 (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))) (* 4 (* (pow (cos delta) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))))) (* 16 (* (pow (cos delta) 2) (* (pow (cos theta) 6) (pow (sin delta) 6)))))) (* (cos theta) (* (sin delta) (+ (* 2 (* (pow (cos theta) 4) (* (pow (sin delta) 4) (+ (* 2 (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* -1 (* (cos delta) (* (cos theta) (sin delta)))) (* -1/3 (* (cos delta) (* (cos theta) (sin delta)))))))) (* 4 (* (cos delta) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))))))) (* 8 (* (cos delta) (* (pow (cos theta) 3) (* (pow (sin delta) 3) (+ (* 2 (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))) (* 4 (* (pow (cos delta) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))))))))))))) (* (cos theta) (* (sin delta) (+ (* 2 (* (pow (cos theta) 4) (* (pow (sin delta) 4) (+ (* 2 (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))) (* 4 (* (pow (cos delta) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))))) (* 16 (* (pow (cos delta) 2) (* (pow (cos theta) 6) (pow (sin delta) 6)))))))))))) (* (cos delta) (* (pow (cos theta) 8) (pow (sin delta) 8)))))) (* (pow (cos theta) 9) (pow (sin delta) 9))))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* (pow (cos theta) 3) (pow (sin delta) 3))))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* phi1 (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 3) (pow (sin delta) 3))))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* phi1 (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (+ (* phi1 (+ (* -1 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* -1/2 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (+ (* -1/6 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))) (* (cos theta) (* (sin delta) (+ (* -1 (* (cos delta) (* (cos theta) (sin delta)))) (* -1/3 (* (cos delta) (* (cos theta) (sin delta)))))))))))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 3) (pow (sin delta) 3))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos 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 (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos 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 (+ (* (* (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 (* (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 (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) #s(hole binary64 (pow (cos delta) 6)))
#s(approx (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) #s(hole binary64 (+ (* (pow phi1 3) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (pow (cos delta) 6))))
#s(approx (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) #s(hole binary64 (+ (* (pow phi1 3) (+ (* phi1 (* (pow (cos delta) 3) (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (pow (cos delta) 6))))
#s(approx (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) #s(hole binary64 (+ (* (pow phi1 3) (+ (* phi1 (+ (* phi1 (* (pow (cos delta) 3) (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))))) (* (pow (cos delta) 3) (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2))))))) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (pow (cos delta) 6))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) #s(hole binary64 (* (pow phi1 3) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (* (pow (cos delta) 3) (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (+ (* phi1 (* (pow (cos delta) 3) (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))))) (* (pow (cos delta) 3) (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2))))))) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (+ (* phi1 (+ (* phi1 (+ (* (pow (cos delta) 3) (+ (* -1 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* -1/2 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (+ (* -1/6 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))) (* (cos theta) (* (sin delta) (+ (* -1 (* (cos delta) (* (cos theta) (sin delta)))) (* -1/3 (* (cos delta) (* (cos theta) (sin delta)))))))))))) (* (pow (cos theta) 6) (pow (sin delta) 6)))) (* (pow (cos delta) 3) (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))))))) (* (pow (cos delta) 3) (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2))))))) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (* (pow phi1 3) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (* (pow (cos delta) 3) (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (+ (* phi1 (* (pow (cos delta) 3) (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))))) (* (pow (cos delta) 3) (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2))))))) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (+ (* phi1 (+ (* phi1 (* (pow (cos delta) 3) (+ (* -1 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* -1/2 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (+ (* -1/6 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))) (* (cos theta) (* (sin delta) (+ (* -1 (* (cos delta) (* (cos theta) (sin delta)))) (* -1/3 (* (cos delta) (* (cos theta) (sin delta))))))))))))) (* (pow (cos delta) 3) (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))))))) (* (pow (cos delta) 3) (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2))))))) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (pow (cos delta) 2)))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ (* phi1 (* (cos delta) (* (cos theta) (sin delta)))) (pow (cos delta) 2))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))) (* (cos delta) (* (cos theta) (sin delta))))) (pow (cos delta) 2))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta))))) (pow (cos delta) 2))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (+ (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (pow (cos delta) 2)) (pow (cos delta) 2))))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* 2 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* phi1 (+ (* -1 (* (cos delta) (* (cos theta) (sin delta)))) (+ (* -2/3 (* (cos delta) (* (cos theta) (sin delta)))) (* -1/3 (* (cos delta) (* (cos theta) (sin delta))))))) (pow (cos delta) 2))))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (pow (cos delta) 2)) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (pow (cos delta) 2))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/3 (* phi1 (pow (cos delta) 2))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (pow (cos delta) 2))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (cos delta)))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (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 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (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 phi1) (sin delta)) (sin theta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (sin delta)))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (+ (sin delta) (* -1/2 (* (pow phi1 2) (sin delta))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow phi1 2) (sin delta))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin delta))) (* 1/24 (sin delta)))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* phi1 (cos delta))))))) (* (cos theta) (sin delta)))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (sin delta)))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (+ (sin delta) (* phi1 (cos delta)))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (+ (sin delta) (* phi1 (+ (cos delta) (* -1/2 (* phi1 (sin delta))))))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (+ (sin delta) (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (sin delta)) (* -1/6 (* phi1 (cos delta))))))))))
#s(approx (+ phi1 delta) #s(hole binary64 delta))
#s(approx (+ phi1 delta) #s(hole binary64 (+ delta phi1)))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) #s(hole binary64 (sin delta)))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) #s(hole binary64 (+ (sin delta) (* phi1 (cos delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) #s(hole binary64 (+ (sin delta) (* phi1 (+ (cos delta) (* -1/2 (* phi1 (sin delta))))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) #s(hole binary64 (+ (sin delta) (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (sin delta)) (* -1/6 (* phi1 (cos delta))))))))))
#s(approx (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))))) #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 delta) (sin theta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin delta) (sin theta)) (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 delta) (sin theta)) (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 delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta)))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta)))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (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) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (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) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* (cos theta) (sin delta))))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/6 (* (cos theta) (sin delta))) (* 1/120 (* (pow phi1 2) (* (cos theta) (sin delta))))))))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* 1/120 (* (cos theta) (sin delta)))))))))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* phi1 (sin delta))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* phi1 (+ (sin delta) (* -1/6 (* (pow phi1 2) (sin delta)))))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow phi1 2) (sin delta)))))))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/6 (sin delta)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin delta))) (* 1/120 (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 (pow (sin phi1) 2) #s(hole binary64 (pow phi1 2)))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))))
#s(approx (* (* (sin 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 (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (/ (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 9))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 6)) (pow (cos delta) 6)))))))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) #s(hole binary64 (/ (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 9))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 6)) (pow (cos delta) 6))))))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) #s(hole binary64 (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 9)))))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) #s(hole binary64 (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 9))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #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 (* (sin phi1) (cos delta)) #s(hole binary64 (* (cos delta) (sin phi1))))
#s(approx (sin phi1) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) #s(hole binary64 (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 6)) (pow (cos delta) 6)))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) #s(hole binary64 (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 6)))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2)))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* (cos phi1) (sin delta))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (sin (+ delta phi1))))
#s(approx (+ phi1 delta) #s(hole binary64 phi1))
#s(approx (+ phi1 delta) #s(hole binary64 (* phi1 (+ 1 (/ delta phi1)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta)))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
#s(approx (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) #s(hole binary64 (* (cos theta) (* (sin delta) (sin phi1)))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* (sin delta) (sin phi1))))
#s(approx (* (pow (sin phi1) 2) (cos delta)) #s(hole binary64 (* (cos delta) (pow (sin phi1) 2))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (sin (- delta (* -1 phi1)))))
#s(approx (+ phi1 delta) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ delta phi1)) 1)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (sin delta) #s(hole binary64 delta))
#s(approx (sin delta) #s(hole binary64 (* delta (+ 1 (* -1/6 (pow delta 2))))))
#s(approx (sin delta) #s(hole binary64 (* delta (+ 1 (* (pow delta 2) (- (* 1/120 (pow delta 2)) 1/6))))))
#s(approx (sin delta) #s(hole binary64 (* delta (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/120 (* -1/5040 (pow delta 2)))) 1/6))))))
#s(approx delta #s(hole binary64 delta))
#s(approx (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (/ (- 1 (pow (sin phi1) 18)) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))))
#s(approx (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (- (+ (* delta (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8))))) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))) (/ (* (+ (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (* (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (- 1 (pow (sin phi1) 18))) (* (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2))))) (/ 1 (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))) (/ (pow (sin phi1) 18) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))))))
#s(approx (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (- (+ (* delta (- (+ (* -1 (/ (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8))))) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))) (* delta (- (* -1 (/ (+ 9/2 (* (pow (sin phi1) 9) (+ (* -1/2 (pow (sin phi1) 9)) (+ (* 8 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 7)))) (* (sin phi1) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))) (* 16 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 6)))))))))) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))) (+ (/ (* (+ (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (* (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8))))) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))) (/ (* (+ (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (* (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (- 1 (pow (sin phi1) 18))) (* (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2))))) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (/ (* (+ (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (- (+ (* -3/2 (pow (sin phi1) 6)) (+ (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) 2))))) 3)) (+ (* (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))))) (- 1 (pow (sin phi1) 18))) (* (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2))))))) (/ (* (+ (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (* (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (- 1 (pow (sin phi1) 18))) (* (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2))))) (/ 1 (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))) (/ (pow (sin phi1) 18) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))))))
#s(approx (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (- (+ (* delta (- (+ (* -1 (/ (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8))))) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))) (* delta (- (+ (* -1 (/ (+ 9/2 (* (pow (sin phi1) 9) (+ (* -1/2 (pow (sin phi1) 9)) (+ (* 8 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 7)))) (* (sin phi1) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))) (* 16 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 6)))))))))) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))) (* delta (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (+ (* (cos phi1) (* (cos theta) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))) (* 16 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 6))))))) (* (sin phi1) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))) (* 4 (* (cos phi1) (* (cos theta) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (* 8 (* (cos phi1) (* (cos theta) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))))))))))) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))) (+ (/ (* (+ (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* -3/2 (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (+ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* 2 (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))))))))) (+ (* (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))) (+ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- (+ (* -3/2 (pow (sin phi1) 6)) (+ (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) 2))))) 3)) (* (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1))))) (- 1 (pow (sin phi1) 18))) (* (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2))) (+ (/ (* (+ (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (* (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (- (* -1 (/ (+ 9/2 (* (pow (sin phi1) 9) (+ (* -1/2 (pow (sin phi1) 9)) (+ (* 8 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 7)))) (* (sin phi1) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))) (* 16 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 6)))))))))) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))) (+ (/ (* (+ (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (* (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8))))) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))) (/ (* (+ (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (* (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (- 1 (pow (sin phi1) 18))) (* (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2))))) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (/ (* (+ (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (- (+ (* -3/2 (pow (sin phi1) 6)) (+ (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) 2))))) 3)) (+ (* (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))))) (- 1 (pow (sin phi1) 18))) (* (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2)))))) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (/ (* (+ (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (- (+ (* -3/2 (pow (sin phi1) 6)) (+ (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) 2))))) 3)) (+ (* (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8))))) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))) (/ (* (+ (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (* (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (- 1 (pow (sin phi1) 18))) (* (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2))))) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))))))) (+ (/ (* (+ (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (* (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8))))) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))) (/ (* (+ (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (* (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (- 1 (pow (sin phi1) 18))) (* (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2))))) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (/ (* (+ (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (- (+ (* -3/2 (pow (sin phi1) 6)) (+ (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) 2))))) 3)) (+ (* (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))))) (- 1 (pow (sin phi1) 18))) (* (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2))))))) (/ (* (+ (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (* (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (- 1 (pow (sin phi1) 18))) (* (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2))))) (/ 1 (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))) (/ (pow (sin phi1) 18) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))))))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) #s(hole binary64 (/ (- 1 (pow (sin phi1) 18)) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) #s(hole binary64 (- (+ (* delta (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8))))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (/ (* (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (- 1 (pow (sin phi1) 18))) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2)))) (/ 1 (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (/ (pow (sin phi1) 18) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) #s(hole binary64 (- (+ (* delta (- (+ (* -1 (/ (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8))))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (* delta (- (* -1 (/ (+ 9/2 (* (pow (sin phi1) 9) (+ (* -1/2 (pow (sin phi1) 9)) (+ (* 8 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 7)))) (* (sin phi1) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))) (* 16 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 6)))))))))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (+ (/ (* (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8))))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (/ (* (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (- 1 (pow (sin phi1) 18))) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2)))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))) (/ (* (- 1 (pow (sin phi1) 18)) (- (+ (* -3/2 (pow (sin phi1) 6)) (+ (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) 2))))) 3)) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2)))))) (/ (* (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (- 1 (pow (sin phi1) 18))) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2)))) (/ 1 (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (/ (pow (sin phi1) 18) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) #s(hole binary64 (- (+ (* delta (- (+ (* -1 (/ (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8))))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (* delta (- (+ (* -1 (/ (+ 9/2 (* (pow (sin phi1) 9) (+ (* -1/2 (pow (sin phi1) 9)) (+ (* 8 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 7)))) (* (sin phi1) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))) (* 16 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 6)))))))))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (* delta (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (+ (* (cos phi1) (* (cos theta) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))) (* 16 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 6))))))) (* (sin phi1) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))) (* 4 (* (cos phi1) (* (cos theta) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (* 8 (* (cos phi1) (* (cos theta) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))))))))))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (+ (/ (* (+ (* -3/2 (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (+ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* 2 (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))))))))) (- 1 (pow (sin phi1) 18))) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2)) (+ (/ (* (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (- (* -1 (/ (+ 9/2 (* (pow (sin phi1) 9) (+ (* -1/2 (pow (sin phi1) 9)) (+ (* 8 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 7)))) (* (sin phi1) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))) (* 16 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 6)))))))))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (+ (/ (* (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8))))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (/ (* (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (- 1 (pow (sin phi1) 18))) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2)))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))) (/ (* (- 1 (pow (sin phi1) 18)) (- (+ (* -3/2 (pow (sin phi1) 6)) (+ (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) 2))))) 3)) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2))))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))) (/ (* (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8))))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (/ (* (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (- 1 (pow (sin phi1) 18))) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2))) (- (+ (* -3/2 (pow (sin phi1) 6)) (+ (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) 2))))) 3)) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))))))) (+ (/ (* (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8))))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (/ (* (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (- 1 (pow (sin phi1) 18))) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2)))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))) (/ (* (- 1 (pow (sin phi1) 18)) (- (+ (* -3/2 (pow (sin phi1) 6)) (+ (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) 2))))) 3)) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2)))))) (/ (* (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (- 1 (pow (sin phi1) 18))) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2)))) (/ 1 (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (/ (pow (sin phi1) 18) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) #s(hole binary64 (- 1 (pow (sin phi1) 18))))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))))))) (pow (sin phi1) 18))))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 9/2 (* (pow (sin phi1) 9) (+ (* -1/2 (pow (sin phi1) 9)) (+ (* 8 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 7)))) (* (sin phi1) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))) (* 16 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 6)))))))))))) (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))))))) (pow (sin phi1) 18))))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* -1 (* delta (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (+ (* (cos phi1) (* (cos theta) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))) (* 16 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 6))))))) (* (sin phi1) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))) (* 4 (* (cos phi1) (* (cos theta) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (* 8 (* (cos phi1) (* (cos theta) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))))))))))))) (+ 9/2 (* (pow (sin phi1) 9) (+ (* -1/2 (pow (sin phi1) 9)) (+ (* 8 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 7)))) (* (sin phi1) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))) (* 16 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 6)))))))))))) (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))))))) (pow (sin phi1) 18))))
#s(approx (pow (pow (cos delta) 3) 3) #s(hole binary64 1))
#s(approx (pow (pow (cos delta) 3) 3) #s(hole binary64 (+ 1 (* -9/2 (pow delta 2)))))
#s(approx (pow (pow (cos delta) 3) 3) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 75/8 (pow delta 2)) 9/2)))))
#s(approx (pow (pow (cos delta) 3) 3) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 75/8 (* -961/80 (pow delta 2)))) 9/2)))))
#s(approx (pow (cos delta) 3) #s(hole binary64 1))
#s(approx (pow (cos delta) 3) #s(hole binary64 (+ 1 (* -3/2 (pow delta 2)))))
#s(approx (pow (cos delta) 3) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 7/8 (pow delta 2)) 3/2)))))
#s(approx (pow (cos delta) 3) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 7/8 (* -61/240 (pow delta 2)))) 3/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 (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) #s(hole binary64 (pow (sin phi1) 18)))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) #s(hole binary64 (+ (* delta (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))))) (pow (sin phi1) 18))))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) #s(hole binary64 (+ (* delta (+ (* delta (* (pow (sin phi1) 9) (+ (* -1/2 (pow (sin phi1) 9)) (+ (* 8 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 7)))) (* (sin phi1) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))) (* 16 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 6)))))))))) (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8))))))) (pow (sin phi1) 18))))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) #s(hole binary64 (+ (* delta (+ (* delta (+ (* delta (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (+ (* (cos phi1) (* (cos theta) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))) (* 16 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 6))))))) (* (sin phi1) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))) (* 4 (* (cos phi1) (* (cos theta) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (* 8 (* (cos phi1) (* (cos theta) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2)))))))))))))))) (* (pow (sin phi1) 9) (+ (* -1/2 (pow (sin phi1) 9)) (+ (* 8 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 7)))) (* (sin phi1) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))) (* 16 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 6))))))))))) (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8))))))) (pow (sin phi1) 18))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (pow (sin phi1) 6)))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (+ (* delta (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (pow (sin phi1) 6))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (+ (* delta (+ (* delta (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (pow (sin phi1) 6))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (+ (* delta (+ (* delta (+ (* delta (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))))) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (pow (sin phi1) 6))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos 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 (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos 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 (+ (* (* (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 (* (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 (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) #s(hole binary64 (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))
#s(approx (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))))
#s(approx (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (+ (* delta (- (+ (* -3/2 (pow (sin phi1) 6)) (+ (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) 2))))) 3)) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))))
#s(approx (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (+ (* delta (- (+ (* -3/2 (pow (sin phi1) 6)) (+ (* delta (+ (* -3/2 (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (+ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* 2 (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))))))))) (+ (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) 2)))))) 3)) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) #s(hole binary64 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) #s(hole binary64 (+ (* delta (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) #s(hole binary64 (+ (* delta (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (+ (* delta (+ (* -3/2 (pow (sin phi1) 6)) (+ (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) #s(hole binary64 (+ (* delta (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (+ (* delta (+ (* -3/2 (pow (sin phi1) 6)) (+ (* delta (+ (* -3/2 (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (+ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* 2 (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))))))))) (+ (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) 2))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (pow (sin phi1) 6)))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (+ (* delta (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (pow (sin phi1) 6))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -3/2 (pow (sin phi1) 6)) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (pow (sin phi1) 6))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -3/2 (pow (sin phi1) 6)) (+ (* delta (+ (* -3/2 (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))))) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (pow (sin phi1) 6))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* delta (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* delta (- (+ (* -1 (pow (sin phi1) 2)) (+ (* delta (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) 1)) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* delta (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* delta (+ (* -1 (pow (sin phi1) 2)) (+ (* delta (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (pow (sin phi1) 4)))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (+ (* 2 (* delta (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))))) (pow (sin phi1) 4))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* delta (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (pow (sin phi1) 4))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* delta (+ (* delta (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (sin phi1) 4))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* -1 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1 (pow (sin phi1) 2)) (* delta (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (/ (- 1 (pow (sin phi1) 4)) (+ 1 (pow (sin phi1) 2)))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* delta (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))) (/ 1 (+ 1 (pow (sin phi1) 2)))) (/ (pow (sin phi1) 4) (+ 1 (pow (sin phi1) 2))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* delta (- (+ (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (* delta (- (* -1 (/ (+ 1 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ 1 (pow (sin phi1) 2)))) (+ (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (+ 1 (pow (sin phi1) 2))) (/ (* (- 1 (pow (sin phi1) 4)) (- (* -1/2 (pow (sin phi1) 2)) 1/2)) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))) (/ 1 (+ 1 (pow (sin phi1) 2)))) (/ (pow (sin phi1) 4) (+ 1 (pow (sin phi1) 2))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* delta (- (+ (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (* delta (- (+ (* -1 (/ (+ 1 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ 1 (pow (sin phi1) 2)))) (* delta (- (* -1 (/ (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ 1 (pow (sin phi1) 2)))) (+ (* -1/6 (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2))) (+ (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- (* -1 (/ (+ 1 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ 1 (pow (sin phi1) 2)))) (+ (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (+ 1 (pow (sin phi1) 2))) (/ (* (- 1 (pow (sin phi1) 4)) (- (* -1/2 (pow (sin phi1) 2)) 1/2)) (pow (+ 1 (pow (sin phi1) 2)) 2))))))) (+ 1 (pow (sin phi1) 2))) (/ (* (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2))) (- (* -1/2 (pow (sin phi1) 2)) 1/2)) (+ 1 (pow (sin phi1) 2)))))))) (+ (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (+ 1 (pow (sin phi1) 2))) (/ (* (- 1 (pow (sin phi1) 4)) (- (* -1/2 (pow (sin phi1) 2)) 1/2)) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))) (/ 1 (+ 1 (pow (sin phi1) 2)))) (/ (pow (sin phi1) 4) (+ 1 (pow (sin phi1) 2))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (cos phi1))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (+ (cos phi1) (* -1/6 (* (pow delta 2) (cos phi1)))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (+ (cos phi1) (* (pow delta 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow delta 2) (cos phi1)))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (+ (cos phi1) (* (pow delta 2) (+ (* -1/6 (cos phi1)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (sin phi1)))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* -1/2 (* delta (sin phi1))) (* (cos phi1) (cos theta)))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (* (cos phi1) (cos theta)))))) (* (cos phi1) (cos theta)))))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (sin phi1)))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (+ (sin phi1) (* delta (cos phi1)))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (+ (sin phi1) (* delta (+ (cos phi1) (* -1/2 (* delta (sin phi1))))))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (+ (sin phi1) (* delta (+ (cos phi1) (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (cos phi1))))))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) #s(hole binary64 (+ (sin phi1) (* delta (cos phi1)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (cos phi1) (* -1/2 (* delta (sin phi1))))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (cos phi1) (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (cos phi1))))))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin delta) (sin theta)) (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 delta) (sin theta)) (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 (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta)))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta)))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (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) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (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) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (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) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (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 (* (* (sin phi1) (sin delta)) (cos theta)) #s(hole binary64 (* delta (* (cos theta) (sin phi1)))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos theta) (sin phi1)))) (* (cos theta) (sin phi1))))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* (cos theta) (sin phi1)) (* (pow delta 2) (+ (* -1/6 (* (cos theta) (sin phi1))) (* 1/120 (* (pow delta 2) (* (cos theta) (sin phi1))))))))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* (cos theta) (sin phi1)) (* (pow delta 2) (+ (* -1/6 (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos theta) (sin phi1)))) (* 1/120 (* (cos theta) (sin phi1)))))))))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* delta (sin phi1))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* delta (+ (sin phi1) (* -1/6 (* (pow delta 2) (sin phi1)))))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* delta (+ (sin phi1) (* (pow delta 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow delta 2) (sin phi1)))))))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* delta (+ (sin phi1) (* (pow delta 2) (+ (* -1/6 (sin phi1)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin phi1))) (* 1/120 (sin phi1))))))))))
#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 (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (sin delta) #s(hole binary64 (sin delta)))
#s(approx (pow (pow (cos delta) 3) 3) #s(hole binary64 (pow (cos delta) 9)))
#s(approx (pow (cos delta) 3) #s(hole binary64 (pow (cos delta) 3)))
#s(approx (cos delta) #s(hole binary64 (cos delta)))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (+ phi1 delta) #s(hole binary64 (* delta (+ 1 (/ phi1 delta)))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (sin (- phi1 (* -1 delta)))))
#s(approx (+ phi1 delta) #s(hole binary64 (* -1 (* delta (- (* -1 (/ phi1 delta)) 1)))))
#s(approx (* (* (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 (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (/ (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))))
#s(approx (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))) (/ (* (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (* (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2))))) (/ (pow (cos delta) 9) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))) (/ (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))))))
#s(approx (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 7)))) (* (+ (* 2 (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))) (* 4 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))) (+ (/ (* (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))) (+ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2))))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (* (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2))) (/ (* (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))) (/ (* (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (* (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))))))) (/ (* (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (* (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2))))) (/ (pow (cos delta) 9) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))) (/ (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))))))
#s(approx (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))) (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 9) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 7)))) (* (+ (* 2 (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))) (* 4 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 2 (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))) (* 4 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))))))) (+ (* -1/6 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 7)))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* (+ (* -4 (* (cos phi1) (* (sin delta) (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (* 2 (* (+ (* -2 (* (cos phi1) (* (sin delta) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* 2 (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))) (+ (/ (* (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))) (+ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2))))))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))) (/ (* (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (* (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))) (+ (/ (* (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2))))) (+ (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (+ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* 2 (* (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (* (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2))) (/ (* (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 7)))) (* (+ (* 2 (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))) (* 4 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))) (+ (/ (* (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))) (+ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2))))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (* (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2))) (/ (* (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))) (/ (* (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (* (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))))))) (+ (/ (* (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))) (+ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2))))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (* (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2))) (/ (* (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))) (/ (* (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (* (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))))))) (/ (* (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (* (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2))))) (/ (pow (cos delta) 9) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))) (/ (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))))))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) #s(hole binary64 (/ (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))) (/ (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2)))) (/ (pow (cos delta) 9) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))) (/ (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 7)))) (* (+ (* 2 (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))) (* 4 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))) (+ (/ (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))) (/ (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2)))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (/ (* (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2)))))) (/ (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2)))) (/ (pow (cos delta) 9) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))) (/ (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))) (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 9) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 7)))) (* (+ (* 2 (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))) (* 4 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 2 (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))) (* 4 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))))))) (+ (* -1/6 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 7)))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* (+ (* -4 (* (cos phi1) (* (sin delta) (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (* 2 (* (+ (* -2 (* (cos phi1) (* (sin delta) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* 2 (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))) (+ (/ (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 7)))) (* (+ (* 2 (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))) (* 4 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))) (+ (/ (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))) (/ (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2)))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (/ (* (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (+ (/ (* (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* 2 (* (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2)) (/ (* (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))) (/ (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2)))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))))))) (+ (/ (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))) (/ (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2)))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (/ (* (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2)))))) (/ (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2)))) (/ (pow (cos delta) 9) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))) (/ (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) #s(hole binary64 (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) #s(hole binary64 (- (+ (* -1 (* (pow theta 2) (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))))) (pow (cos delta) 9)) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (* (pow theta 2) (* (pow (sin phi1) 9) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 7)))) (* (+ (* 2 (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))) (* 4 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))))) (pow (cos delta) 9)) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) #s(hole binary64 (- (+ (* (pow theta 2) (- (* (pow theta 2) (- (* -1 (* (pow theta 2) (* (pow (sin phi1) 9) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 2 (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))) (* 4 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))))))) (+ (* -1/6 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 7)))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* (+ (* -4 (* (cos phi1) (* (sin delta) (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (* 2 (* (+ (* -2 (* (cos phi1) (* (sin delta) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* 2 (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (sin phi1) 9) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 7)))) (* (+ (* 2 (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))) (* 4 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))))) (pow (cos delta) 9)) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) #s(hole binary64 (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9))))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) #s(hole binary64 (+ (* (pow theta 2) (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8))))))) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) #s(hole binary64 (+ (* (pow theta 2) (+ (* (pow theta 2) (* (pow (sin phi1) 9) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 7)))) (* (+ (* 2 (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))) (* 4 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))))) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) #s(hole binary64 (+ (* (pow theta 2) (+ (* (pow theta 2) (+ (* (pow theta 2) (* (pow (sin phi1) 9) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 2 (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))) (* 4 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))))))) (+ (* -1/6 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 7)))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* (+ (* -4 (* (cos phi1) (* (sin delta) (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (* 2 (* (+ (* -2 (* (cos phi1) (* (sin delta) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* 2 (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 9) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 7)))) (* (+ (* 2 (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))) (* 4 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))))) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (+ (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (+ (* (pow theta 2) (+ (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (+ (* (pow theta 2) (+ (* (pow theta 2) (+ (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (* (* (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 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 (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) #s(hole binary64 (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))
#s(approx (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) #s(hole binary64 (+ (* (pow theta 2) (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))))
#s(approx (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) #s(hole binary64 (+ (* (pow theta 2) (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (* (pow theta 2) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2))))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))))
#s(approx (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) #s(hole binary64 (+ (* (pow theta 2) (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (* (pow theta 2) (+ (* (pow theta 2) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* 2 (* (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)))))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) #s(hole binary64 (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) #s(hole binary64 (+ (* (pow theta 2) (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) #s(hole binary64 (+ (* (pow theta 2) (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (* (pow theta 2) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2))))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) #s(hole binary64 (+ (* (pow theta 2) (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (* (pow theta 2) (+ (* (pow theta 2) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* 2 (* (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)))))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow theta 2) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow theta 2) (+ (* (pow theta 2) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow theta 2) (+ (* (pow theta 2) (+ (* (pow theta 2) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow theta 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow theta 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (+ (* (pow theta 2) (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow theta 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow theta 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (+ (* (pow theta 2) (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (+ (* -1 (* (pow theta 2) (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* (pow theta 2) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* (pow theta 2) (+ (* (pow theta 2) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (pow theta 2) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* (pow theta 2) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))) (/ (pow (cos delta) 2) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (/ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* 1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2)))))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))) (/ (pow (cos delta) 2) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (/ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* -1 (/ (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* 1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2)))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/720 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))) (* 1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))))) (+ (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* 1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2)))))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))) (/ (pow (cos delta) 2) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (/ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin delta) (sin theta)) (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 delta) (sin theta)) (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 (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta)))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta)))) #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) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (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))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (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))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) #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) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) #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) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1))))))))))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) #s(hole binary64 (* (sin delta) (sin phi1))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (sin delta) (sin phi1)))) (* (sin delta) (sin phi1)))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* (sin delta) (sin phi1)) (* (pow theta 2) (+ (* -1/2 (* (sin delta) (sin phi1))) (* 1/24 (* (pow theta 2) (* (sin delta) (sin phi1)))))))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* (sin delta) (sin phi1)) (* (pow theta 2) (+ (* -1/2 (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (sin delta) (sin phi1)))) (* 1/24 (* (sin delta) (sin phi1))))))))))
#s(approx (sin theta) #s(hole binary64 (sin theta)))
#s(approx (cos theta) #s(hole binary64 (cos theta)))

Calls

15 calls:

Time	Variable		Point	Expression
41.0ms	theta	@	0	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (pow (pow (cos delta) 3) 3) (pow (cos delta) 3) (cos delta) 3 (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (* (+ (* (* (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 theta) (* (sin phi1) (cos delta)) (sin phi1) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) 2 (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin delta) (sin theta)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (cos phi1) (sin delta)) (sin theta)) (* (cos phi1) (sin delta)) (sin theta) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin (+ phi1 delta)) (+ phi1 delta) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))))) (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta)))) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) (* (* (sin phi1) (sin delta)) (cos theta)) (* (sin phi1) (sin delta)) (* (pow (sin phi1) 2) (cos delta)) (pow (sin phi1) 2))
26.0ms	delta	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (pow (pow (cos delta) 3) 3) (pow (cos delta) 3) (cos delta) 3 (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (* (+ (* (* (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 theta) (* (sin phi1) (cos delta)) (sin phi1) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) 2 (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin delta) (sin theta)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (cos phi1) (sin delta)) (sin theta)) (* (cos phi1) (sin delta)) (sin theta) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin (+ phi1 delta)) (+ phi1 delta) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))))) (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta)))) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) (* (* (sin phi1) (sin delta)) (cos theta)) (* (sin phi1) (sin delta)) (* (pow (sin phi1) 2) (cos delta)) (pow (sin phi1) 2))
24.0ms	phi1	@	0	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (pow (pow (cos delta) 3) 3) (pow (cos delta) 3) (cos delta) 3 (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (* (+ (* (* (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 theta) (* (sin phi1) (cos delta)) (sin phi1) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) 2 (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin delta) (sin theta)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (cos phi1) (sin delta)) (sin theta)) (* (cos phi1) (sin delta)) (sin theta) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin (+ phi1 delta)) (+ phi1 delta) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))))) (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta)))) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) (* (* (sin phi1) (sin delta)) (cos theta)) (* (sin phi1) (sin delta)) (* (pow (sin phi1) 2) (cos delta)) (pow (sin phi1) 2))
22.0ms	delta	@	0	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (pow (pow (cos delta) 3) 3) (pow (cos delta) 3) (cos delta) 3 (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (* (+ (* (* (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 theta) (* (sin phi1) (cos delta)) (sin phi1) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) 2 (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin delta) (sin theta)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (cos phi1) (sin delta)) (sin theta)) (* (cos phi1) (sin delta)) (sin theta) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin (+ phi1 delta)) (+ phi1 delta) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))))) (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta)))) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) (* (* (sin phi1) (sin delta)) (cos theta)) (* (sin phi1) (sin delta)) (* (pow (sin phi1) 2) (cos delta)) (pow (sin phi1) 2))
19.0ms	phi1	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (pow (pow (cos delta) 3) 3) (pow (cos delta) 3) (cos delta) 3 (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (* (+ (* (* (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 theta) (* (sin phi1) (cos delta)) (sin phi1) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) 2 (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin delta) (sin theta)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (cos phi1) (sin delta)) (sin theta)) (* (cos phi1) (sin delta)) (sin theta) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin (+ phi1 delta)) (+ phi1 delta) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))))) (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta)))) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) (* (* (sin phi1) (sin delta)) (cos theta)) (* (sin phi1) (sin delta)) (* (pow (sin phi1) 2) (cos delta)) (pow (sin phi1) 2))

rewrite574.0ms (5.2%)

Memory

111.9MiB live, 708.8MiB allocated; 184ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	2437	62215
0	2562	58776
0	8866	55783

Stop Event

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

Counts

534 → 604

Calls

Call 1

Inputs
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (/.f64 (-.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) #s(literal 3 binary64)) (pow.f64 (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)) #s(literal 3 binary64))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (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)) (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)) (.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) (+.f64 (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 2 binary64)) (.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 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (/.f64 (-.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) #s(literal 3 binary64)) (pow.f64 (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)) #s(literal 3 binary64))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (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)) (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)) (.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) (+.f64 (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 2 binary64)) (.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 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(sin.f64 theta)
theta
(sin.f64 delta)
delta
(cos.f64 phi1)
phi1
(/.f64 (/.f64 (-.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) #s(literal 3 binary64)) (pow.f64 (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)) #s(literal 3 binary64))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (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)) (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)) (.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) (+.f64 (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 2 binary64)) (.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 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) #s(literal 3 binary64)) (pow.f64 (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)) #s(literal 3 binary64))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (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)) (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)) (.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))))))
(-.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) #s(literal 3 binary64)) (pow.f64 (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)) #s(literal 3 binary64)))
(pow.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) #s(literal 3 binary64))
(pow.f64 (cos.f64 delta) #s(literal 3 binary64))
(cos.f64 delta)
#s(literal 3 binary64)
(pow.f64 (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)) #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))
(.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (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 theta) (sin.f64 delta))
(cos.f64 theta)
(*.f64 (sin.f64 phi1) (cos.f64 delta))
(sin.f64 phi1)
(fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (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)) (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)) (.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 (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)) (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)) (.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))))
(.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) (+.f64 (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 2 binary64)) (.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 (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 2 binary64)) (.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))))
(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 2 binary64))
#s(literal 2 binary64)
(.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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
(atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(*.f64 (sin.f64 delta) (sin.f64 theta))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(approx (sin theta) theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(approx (sin theta) theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(approx (sin theta) theta))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
#s(approx (sin theta) theta)
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))
(.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))
(sin.f64 (+.f64 phi1 delta))
(+.f64 phi1 delta)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
(.f64 (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 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 phi1) (sin.f64 delta))))
(fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (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))))))
(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)))))
(.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))))
(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)))
(.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta))
(*.f64 (sin.f64 phi1) (sin.f64 delta))
(*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 9))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 6)) (pow (cos delta) 6))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 9))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 6)) (pow (cos delta) 6)))))))))
#s(approx lambda1 #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (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 (* (* (cos phi1) (sin delta)) (sin theta)) (- (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)) (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 9))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 6)) (pow (cos delta) 6)))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (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)) (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 9))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 6)) (pow (cos delta) 6)))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (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)) (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 9))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 6)) (pow (cos delta) 6))))))))
#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 (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (cos delta)))
#s(approx (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (+ (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 (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1 (/ (* (cos theta) (* (sin 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 delta))) (+ (* -1 (/ (* (cos theta) (* (sin delta) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))) (pow (cos delta) 2))) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (+ (* 2 (* (cos theta) (sin delta))) (/ (* (pow (cos theta) 3) (pow (sin delta) 3)) (pow (cos delta) 2))))))))) (+ (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 (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) #s(hole binary64 (pow (cos delta) 3)))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) #s(hole binary64 (+ (* -1 (* (pow phi1 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (pow (cos delta) 3))))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) #s(hole binary64 (+ (* (pow phi1 3) (- (* -1 (* phi1 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (pow (cos delta) 3))))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) #s(hole binary64 (+ (* (pow phi1 3) (- (* phi1 (- (* -1 (* phi1 (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))))) (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (pow (cos delta) 3))))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) #s(hole binary64 (pow (cos delta) 9)))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) #s(hole binary64 (+ (* -1 (* (pow phi1 9) (* (pow (cos theta) 9) (pow (sin delta) 9)))) (pow (cos delta) 9))))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) #s(hole binary64 (+ (* (pow phi1 9) (- (* -1 (* phi1 (+ (* 8 (* (cos delta) (* (pow (cos theta) 8) (pow (sin delta) 8)))) (* (cos delta) (* (pow (cos theta) 8) (pow (sin delta) 8)))))) (* (pow (cos theta) 9) (pow (sin delta) 9)))) (pow (cos delta) 9))))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) #s(hole binary64 (* (pow phi1 9) (* (pow (cos theta) 9) (pow (sin delta) 9)))))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) #s(hole binary64 (* (pow phi1 9) (+ (* phi1 (+ (* 8 (* (cos delta) (* (pow (cos theta) 8) (pow (sin delta) 8)))) (* (cos delta) (* (pow (cos theta) 8) (pow (sin delta) 8))))) (* (pow (cos theta) 9) (pow (sin delta) 9))))))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) #s(hole binary64 (* (pow phi1 9) (+ (* phi1 (+ (* 8 (* (cos delta) (* (pow (cos theta) 8) (pow (sin delta) 8)))) (+ (* phi1 (+ (* -3/2 (* (pow (cos theta) 9) (pow (sin delta) 9))) (+ (* -1/2 (* (pow (cos theta) 9) (pow (sin delta) 9))) (+ (* 8 (* (pow (cos delta) 2) (* (pow (cos theta) 7) (pow (sin delta) 7)))) (* (cos theta) (* (sin delta) (+ (* 2 (* (pow (cos theta) 4) (* (pow (sin delta) 4) (+ (* 2 (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))) (* 4 (* (pow (cos delta) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))))) (* 16 (* (pow (cos delta) 2) (* (pow (cos theta) 6) (pow (sin delta) 6))))))))))) (* (cos delta) (* (pow (cos theta) 8) (pow (sin delta) 8)))))) (* (pow (cos theta) 9) (pow (sin delta) 9))))))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) #s(hole binary64 (* (pow phi1 9) (+ (* phi1 (+ (* 8 (* (cos delta) (* (pow (cos theta) 8) (pow (sin delta) 8)))) (+ (* phi1 (+ (* -3/2 (* (pow (cos theta) 9) (pow (sin delta) 9))) (+ (* -1/2 (* (pow (cos theta) 9) (pow (sin delta) 9))) (+ (* 8 (* (pow (cos delta) 2) (* (pow (cos theta) 7) (pow (sin delta) 7)))) (+ (* phi1 (+ (* -4 (* (cos delta) (* (pow (cos theta) 8) (pow (sin delta) 8)))) (+ (* -3/2 (+ (* 8 (* (cos delta) (* (pow (cos theta) 8) (pow (sin delta) 8)))) (* (cos delta) (* (pow (cos theta) 8) (pow (sin delta) 8))))) (+ (* -1/6 (* (cos delta) (* (pow (cos theta) 8) (pow (sin delta) 8)))) (+ (* (cos delta) (+ (* 2 (* (pow (cos theta) 4) (* (pow (sin delta) 4) (+ (* 2 (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))) (* 4 (* (pow (cos delta) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))))) (* 16 (* (pow (cos delta) 2) (* (pow (cos theta) 6) (pow (sin delta) 6)))))) (* (cos theta) (* (sin delta) (+ (* 2 (* (pow (cos theta) 4) (* (pow (sin delta) 4) (+ (* 2 (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* -1 (* (cos delta) (* (cos theta) (sin delta)))) (* -1/3 (* (cos delta) (* (cos theta) (sin delta)))))))) (* 4 (* (cos delta) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))))))) (* 8 (* (cos delta) (* (pow (cos theta) 3) (* (pow (sin delta) 3) (+ (* 2 (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))) (* 4 (* (pow (cos delta) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))))))))))))) (* (cos theta) (* (sin delta) (+ (* 2 (* (pow (cos theta) 4) (* (pow (sin delta) 4) (+ (* 2 (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))) (* 4 (* (pow (cos delta) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))))) (* 16 (* (pow (cos delta) 2) (* (pow (cos theta) 6) (pow (sin delta) 6)))))))))))) (* (cos delta) (* (pow (cos theta) 8) (pow (sin delta) 8)))))) (* (pow (cos theta) 9) (pow (sin delta) 9))))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* (pow (cos theta) 3) (pow (sin delta) 3))))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* phi1 (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 3) (pow (sin delta) 3))))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* phi1 (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (+ (* phi1 (+ (* -1 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* -1/2 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (+ (* -1/6 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))) (* (cos theta) (* (sin delta) (+ (* -1 (* (cos delta) (* (cos theta) (sin delta)))) (* -1/3 (* (cos delta) (* (cos theta) (sin delta)))))))))))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 3) (pow (sin delta) 3))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos 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 (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos 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 (+ (* (* (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 (* (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 (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) #s(hole binary64 (pow (cos delta) 6)))
#s(approx (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) #s(hole binary64 (+ (* (pow phi1 3) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (pow (cos delta) 6))))
#s(approx (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) #s(hole binary64 (+ (* (pow phi1 3) (+ (* phi1 (* (pow (cos delta) 3) (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (pow (cos delta) 6))))
#s(approx (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) #s(hole binary64 (+ (* (pow phi1 3) (+ (* phi1 (+ (* phi1 (* (pow (cos delta) 3) (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))))) (* (pow (cos delta) 3) (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2))))))) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (pow (cos delta) 6))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) #s(hole binary64 (* (pow phi1 3) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (* (pow (cos delta) 3) (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (+ (* phi1 (* (pow (cos delta) 3) (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))))) (* (pow (cos delta) 3) (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2))))))) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (+ (* phi1 (+ (* phi1 (+ (* (pow (cos delta) 3) (+ (* -1 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* -1/2 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (+ (* -1/6 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))) (* (cos theta) (* (sin delta) (+ (* -1 (* (cos delta) (* (cos theta) (sin delta)))) (* -1/3 (* (cos delta) (* (cos theta) (sin delta)))))))))))) (* (pow (cos theta) 6) (pow (sin delta) 6)))) (* (pow (cos delta) 3) (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))))))) (* (pow (cos delta) 3) (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2))))))) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (* (pow phi1 3) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (* (pow (cos delta) 3) (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (+ (* phi1 (* (pow (cos delta) 3) (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))))) (* (pow (cos delta) 3) (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2))))))) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (+ (* phi1 (+ (* phi1 (* (pow (cos delta) 3) (+ (* -1 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* -1/2 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (+ (* -1/6 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))) (* (cos theta) (* (sin delta) (+ (* -1 (* (cos delta) (* (cos theta) (sin delta)))) (* -1/3 (* (cos delta) (* (cos theta) (sin delta))))))))))))) (* (pow (cos delta) 3) (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))))))) (* (pow (cos delta) 3) (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2))))))) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (pow (cos delta) 2)))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ (* phi1 (* (cos delta) (* (cos theta) (sin delta)))) (pow (cos delta) 2))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))) (* (cos delta) (* (cos theta) (sin delta))))) (pow (cos delta) 2))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta))))) (pow (cos delta) 2))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (+ (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (pow (cos delta) 2)) (pow (cos delta) 2))))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* 2 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* phi1 (+ (* -1 (* (cos delta) (* (cos theta) (sin delta)))) (+ (* -2/3 (* (cos delta) (* (cos theta) (sin delta)))) (* -1/3 (* (cos delta) (* (cos theta) (sin delta))))))) (pow (cos delta) 2))))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (pow (cos delta) 2)) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (pow (cos delta) 2))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/3 (* phi1 (pow (cos delta) 2))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (pow (cos delta) 2))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (cos delta)))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (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 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (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 phi1) (sin delta)) (sin theta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (sin delta)))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (+ (sin delta) (* -1/2 (* (pow phi1 2) (sin delta))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow phi1 2) (sin delta))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin delta))) (* 1/24 (sin delta)))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* phi1 (cos delta))))))) (* (cos theta) (sin delta)))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (sin delta)))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (+ (sin delta) (* phi1 (cos delta)))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (+ (sin delta) (* phi1 (+ (cos delta) (* -1/2 (* phi1 (sin delta))))))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (+ (sin delta) (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (sin delta)) (* -1/6 (* phi1 (cos delta))))))))))
#s(approx (+ phi1 delta) #s(hole binary64 delta))
#s(approx (+ phi1 delta) #s(hole binary64 (+ delta phi1)))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) #s(hole binary64 (sin delta)))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) #s(hole binary64 (+ (sin delta) (* phi1 (cos delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) #s(hole binary64 (+ (sin delta) (* phi1 (+ (cos delta) (* -1/2 (* phi1 (sin delta))))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) #s(hole binary64 (+ (sin delta) (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (sin delta)) (* -1/6 (* phi1 (cos delta))))))))))
#s(approx (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))))) #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 delta) (sin theta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin delta) (sin theta)) (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 delta) (sin theta)) (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 delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta)))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta)))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (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) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (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) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* (cos theta) (sin delta))))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/6 (* (cos theta) (sin delta))) (* 1/120 (* (pow phi1 2) (* (cos theta) (sin delta))))))))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) #s(hole binary64 (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* 1/120 (* (cos theta) (sin delta)))))))))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* phi1 (sin delta))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* phi1 (+ (sin delta) (* -1/6 (* (pow phi1 2) (sin delta)))))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow phi1 2) (sin delta)))))))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/6 (sin delta)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin delta))) (* 1/120 (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 (pow (sin phi1) 2) #s(hole binary64 (pow phi1 2)))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))))
#s(approx (* (* (sin 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 (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (/ (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 9))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 6)) (pow (cos delta) 6)))))))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) #s(hole binary64 (/ (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 9))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 6)) (pow (cos delta) 6))))))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) #s(hole binary64 (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 9)))))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) #s(hole binary64 (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 9))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #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 (* (sin phi1) (cos delta)) #s(hole binary64 (* (cos delta) (sin phi1))))
#s(approx (sin phi1) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) #s(hole binary64 (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 6)) (pow (cos delta) 6)))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) #s(hole binary64 (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 6)))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2)))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* (cos phi1) (sin delta))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (sin (+ delta phi1))))
#s(approx (+ phi1 delta) #s(hole binary64 phi1))
#s(approx (+ phi1 delta) #s(hole binary64 (* phi1 (+ 1 (/ delta phi1)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta)))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
#s(approx (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) #s(hole binary64 (* (cos theta) (* (sin delta) (sin phi1)))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* (sin delta) (sin phi1))))
#s(approx (* (pow (sin phi1) 2) (cos delta)) #s(hole binary64 (* (cos delta) (pow (sin phi1) 2))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (sin (- delta (* -1 phi1)))))
#s(approx (+ phi1 delta) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ delta phi1)) 1)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (sin delta) #s(hole binary64 delta))
#s(approx (sin delta) #s(hole binary64 (* delta (+ 1 (* -1/6 (pow delta 2))))))
#s(approx (sin delta) #s(hole binary64 (* delta (+ 1 (* (pow delta 2) (- (* 1/120 (pow delta 2)) 1/6))))))
#s(approx (sin delta) #s(hole binary64 (* delta (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/120 (* -1/5040 (pow delta 2)))) 1/6))))))
#s(approx delta #s(hole binary64 delta))
#s(approx (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (/ (- 1 (pow (sin phi1) 18)) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))))
#s(approx (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (- (+ (* delta (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8))))) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))) (/ (* (+ (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (* (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (- 1 (pow (sin phi1) 18))) (* (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2))))) (/ 1 (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))) (/ (pow (sin phi1) 18) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))))))
#s(approx (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (- (+ (* delta (- (+ (* -1 (/ (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8))))) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))) (* delta (- (* -1 (/ (+ 9/2 (* (pow (sin phi1) 9) (+ (* -1/2 (pow (sin phi1) 9)) (+ (* 8 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 7)))) (* (sin phi1) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))) (* 16 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 6)))))))))) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))) (+ (/ (* (+ (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (* (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8))))) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))) (/ (* (+ (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (* (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (- 1 (pow (sin phi1) 18))) (* (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2))))) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (/ (* (+ (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (- (+ (* -3/2 (pow (sin phi1) 6)) (+ (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) 2))))) 3)) (+ (* (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))))) (- 1 (pow (sin phi1) 18))) (* (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2))))))) (/ (* (+ (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (* (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (- 1 (pow (sin phi1) 18))) (* (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2))))) (/ 1 (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))) (/ (pow (sin phi1) 18) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))))))
#s(approx (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (- (+ (* delta (- (+ (* -1 (/ (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8))))) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))) (* delta (- (+ (* -1 (/ (+ 9/2 (* (pow (sin phi1) 9) (+ (* -1/2 (pow (sin phi1) 9)) (+ (* 8 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 7)))) (* (sin phi1) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))) (* 16 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 6)))))))))) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))) (* delta (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (+ (* (cos phi1) (* (cos theta) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))) (* 16 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 6))))))) (* (sin phi1) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))) (* 4 (* (cos phi1) (* (cos theta) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (* 8 (* (cos phi1) (* (cos theta) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))))))))))) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))) (+ (/ (* (+ (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* -3/2 (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (+ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* 2 (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))))))))) (+ (* (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))) (+ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- (+ (* -3/2 (pow (sin phi1) 6)) (+ (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) 2))))) 3)) (* (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1))))) (- 1 (pow (sin phi1) 18))) (* (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2))) (+ (/ (* (+ (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (* (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (- (* -1 (/ (+ 9/2 (* (pow (sin phi1) 9) (+ (* -1/2 (pow (sin phi1) 9)) (+ (* 8 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 7)))) (* (sin phi1) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))) (* 16 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 6)))))))))) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))) (+ (/ (* (+ (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (* (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8))))) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))) (/ (* (+ (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (* (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (- 1 (pow (sin phi1) 18))) (* (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2))))) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (/ (* (+ (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (- (+ (* -3/2 (pow (sin phi1) 6)) (+ (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) 2))))) 3)) (+ (* (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))))) (- 1 (pow (sin phi1) 18))) (* (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2)))))) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (/ (* (+ (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (- (+ (* -3/2 (pow (sin phi1) 6)) (+ (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) 2))))) 3)) (+ (* (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8))))) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))) (/ (* (+ (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (* (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (- 1 (pow (sin phi1) 18))) (* (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2))))) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))))))) (+ (/ (* (+ (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (* (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8))))) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))) (/ (* (+ (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (* (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (- 1 (pow (sin phi1) 18))) (* (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2))))) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (/ (* (+ (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (- (+ (* -3/2 (pow (sin phi1) 6)) (+ (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) 2))))) 3)) (+ (* (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))))) (- 1 (pow (sin phi1) 18))) (* (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2))))))) (/ (* (+ (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (* (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (- 1 (pow (sin phi1) 18))) (* (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2))))) (/ 1 (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))) (/ (pow (sin phi1) 18) (* (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))))))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) #s(hole binary64 (/ (- 1 (pow (sin phi1) 18)) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) #s(hole binary64 (- (+ (* delta (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8))))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (/ (* (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (- 1 (pow (sin phi1) 18))) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2)))) (/ 1 (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (/ (pow (sin phi1) 18) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) #s(hole binary64 (- (+ (* delta (- (+ (* -1 (/ (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8))))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (* delta (- (* -1 (/ (+ 9/2 (* (pow (sin phi1) 9) (+ (* -1/2 (pow (sin phi1) 9)) (+ (* 8 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 7)))) (* (sin phi1) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))) (* 16 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 6)))))))))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (+ (/ (* (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8))))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (/ (* (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (- 1 (pow (sin phi1) 18))) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2)))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))) (/ (* (- 1 (pow (sin phi1) 18)) (- (+ (* -3/2 (pow (sin phi1) 6)) (+ (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) 2))))) 3)) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2)))))) (/ (* (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (- 1 (pow (sin phi1) 18))) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2)))) (/ 1 (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (/ (pow (sin phi1) 18) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) #s(hole binary64 (- (+ (* delta (- (+ (* -1 (/ (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8))))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (* delta (- (+ (* -1 (/ (+ 9/2 (* (pow (sin phi1) 9) (+ (* -1/2 (pow (sin phi1) 9)) (+ (* 8 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 7)))) (* (sin phi1) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))) (* 16 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 6)))))))))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (* delta (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (+ (* (cos phi1) (* (cos theta) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))) (* 16 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 6))))))) (* (sin phi1) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))) (* 4 (* (cos phi1) (* (cos theta) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (* 8 (* (cos phi1) (* (cos theta) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))))))))))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (+ (/ (* (+ (* -3/2 (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (+ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* 2 (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))))))))) (- 1 (pow (sin phi1) 18))) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2)) (+ (/ (* (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (- (* -1 (/ (+ 9/2 (* (pow (sin phi1) 9) (+ (* -1/2 (pow (sin phi1) 9)) (+ (* 8 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 7)))) (* (sin phi1) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))) (* 16 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 6)))))))))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (+ (/ (* (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8))))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (/ (* (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (- 1 (pow (sin phi1) 18))) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2)))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))) (/ (* (- 1 (pow (sin phi1) 18)) (- (+ (* -3/2 (pow (sin phi1) 6)) (+ (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) 2))))) 3)) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2))))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))) (/ (* (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8))))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (/ (* (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (- 1 (pow (sin phi1) 18))) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2))) (- (+ (* -3/2 (pow (sin phi1) 6)) (+ (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) 2))))) 3)) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))))))) (+ (/ (* (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8))))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (/ (* (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (- 1 (pow (sin phi1) 18))) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2)))) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))) (/ (* (- 1 (pow (sin phi1) 18)) (- (+ (* -3/2 (pow (sin phi1) 6)) (+ (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) 2))))) 3)) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2)))))) (/ (* (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (- 1 (pow (sin phi1) 18))) (pow (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))) 2)))) (/ 1 (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))) (/ (pow (sin phi1) 18) (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) #s(hole binary64 (- 1 (pow (sin phi1) 18))))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))))))) (pow (sin phi1) 18))))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 9/2 (* (pow (sin phi1) 9) (+ (* -1/2 (pow (sin phi1) 9)) (+ (* 8 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 7)))) (* (sin phi1) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))) (* 16 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 6)))))))))))) (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))))))) (pow (sin phi1) 18))))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* -1 (* delta (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (+ (* (cos phi1) (* (cos theta) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))) (* 16 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 6))))))) (* (sin phi1) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))) (* 4 (* (cos phi1) (* (cos theta) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (* 8 (* (cos phi1) (* (cos theta) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))))))))))))) (+ 9/2 (* (pow (sin phi1) 9) (+ (* -1/2 (pow (sin phi1) 9)) (+ (* 8 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 7)))) (* (sin phi1) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))) (* 16 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 6)))))))))))) (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))))))) (pow (sin phi1) 18))))
#s(approx (pow (pow (cos delta) 3) 3) #s(hole binary64 1))
#s(approx (pow (pow (cos delta) 3) 3) #s(hole binary64 (+ 1 (* -9/2 (pow delta 2)))))
#s(approx (pow (pow (cos delta) 3) 3) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 75/8 (pow delta 2)) 9/2)))))
#s(approx (pow (pow (cos delta) 3) 3) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 75/8 (* -961/80 (pow delta 2)))) 9/2)))))
#s(approx (pow (cos delta) 3) #s(hole binary64 1))
#s(approx (pow (cos delta) 3) #s(hole binary64 (+ 1 (* -3/2 (pow delta 2)))))
#s(approx (pow (cos delta) 3) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 7/8 (pow delta 2)) 3/2)))))
#s(approx (pow (cos delta) 3) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 7/8 (* -61/240 (pow delta 2)))) 3/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 (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) #s(hole binary64 (pow (sin phi1) 18)))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) #s(hole binary64 (+ (* delta (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))))) (pow (sin phi1) 18))))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) #s(hole binary64 (+ (* delta (+ (* delta (* (pow (sin phi1) 9) (+ (* -1/2 (pow (sin phi1) 9)) (+ (* 8 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 7)))) (* (sin phi1) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))) (* 16 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 6)))))))))) (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8))))))) (pow (sin phi1) 18))))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) #s(hole binary64 (+ (* delta (+ (* delta (+ (* delta (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (+ (* (cos phi1) (* (cos theta) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))) (* 16 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 6))))))) (* (sin phi1) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))) (* 4 (* (cos phi1) (* (cos theta) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (* 8 (* (cos phi1) (* (cos theta) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2)))))))))))))))) (* (pow (sin phi1) 9) (+ (* -1/2 (pow (sin phi1) 9)) (+ (* 8 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 7)))) (* (sin phi1) (+ (* 2 (* (pow (sin phi1) 4) (+ (* 2 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* 4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2))))))) (* 16 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 6))))))))))) (* (pow (sin phi1) 9) (+ (* 8 (* (cos phi1) (* (cos theta) (pow (sin phi1) 8)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 8))))))) (pow (sin phi1) 18))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (pow (sin phi1) 6)))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (+ (* delta (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (pow (sin phi1) 6))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (+ (* delta (+ (* delta (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (pow (sin phi1) 6))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (+ (* delta (+ (* delta (+ (* delta (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))))) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (pow (sin phi1) 6))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos 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 (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos 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 (+ (* (* (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 (* (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 (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) #s(hole binary64 (+ 1 (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))
#s(approx (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))))
#s(approx (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (+ (* delta (- (+ (* -3/2 (pow (sin phi1) 6)) (+ (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) 2))))) 3)) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))))
#s(approx (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (+ (* delta (- (+ (* -3/2 (pow (sin phi1) 6)) (+ (* delta (+ (* -3/2 (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (+ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* 2 (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))))))))) (+ (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) 2)))))) 3)) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) #s(hole binary64 (+ (pow (sin phi1) 6) (pow (sin phi1) 12))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) #s(hole binary64 (+ (* delta (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) #s(hole binary64 (+ (* delta (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (+ (* delta (+ (* -3/2 (pow (sin phi1) 6)) (+ (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) 2)))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) #s(hole binary64 (+ (* delta (+ (* 2 (* (pow (sin phi1) 9) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (+ (* delta (+ (* -3/2 (pow (sin phi1) 6)) (+ (* delta (+ (* -3/2 (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (+ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* 2 (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))))))))) (+ (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) 2))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (+ (pow (sin phi1) 6) (pow (sin phi1) 12)))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (pow (sin phi1) 6)))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (+ (* delta (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (pow (sin phi1) 6))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -3/2 (pow (sin phi1) 6)) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (pow (sin phi1) 6))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -3/2 (pow (sin phi1) 6)) (+ (* delta (+ (* -3/2 (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))))) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (pow (sin phi1) 6))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* delta (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* delta (- (+ (* -1 (pow (sin phi1) 2)) (+ (* delta (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) 1)) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* delta (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* delta (+ (* -1 (pow (sin phi1) 2)) (+ (* delta (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (pow (sin phi1) 4)))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (+ (* 2 (* delta (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))))) (pow (sin phi1) 4))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* delta (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (pow (sin phi1) 4))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* delta (+ (* delta (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (sin phi1) 4))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* -1 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1 (pow (sin phi1) 2)) (* delta (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (/ (- 1 (pow (sin phi1) 4)) (+ 1 (pow (sin phi1) 2)))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* delta (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))) (/ 1 (+ 1 (pow (sin phi1) 2)))) (/ (pow (sin phi1) 4) (+ 1 (pow (sin phi1) 2))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* delta (- (+ (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (* delta (- (* -1 (/ (+ 1 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ 1 (pow (sin phi1) 2)))) (+ (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (+ 1 (pow (sin phi1) 2))) (/ (* (- 1 (pow (sin phi1) 4)) (- (* -1/2 (pow (sin phi1) 2)) 1/2)) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))) (/ 1 (+ 1 (pow (sin phi1) 2)))) (/ (pow (sin phi1) 4) (+ 1 (pow (sin phi1) 2))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* delta (- (+ (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (* delta (- (+ (* -1 (/ (+ 1 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ 1 (pow (sin phi1) 2)))) (* delta (- (* -1 (/ (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ 1 (pow (sin phi1) 2)))) (+ (* -1/6 (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2))) (+ (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- (* -1 (/ (+ 1 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ 1 (pow (sin phi1) 2)))) (+ (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (+ 1 (pow (sin phi1) 2))) (/ (* (- 1 (pow (sin phi1) 4)) (- (* -1/2 (pow (sin phi1) 2)) 1/2)) (pow (+ 1 (pow (sin phi1) 2)) 2))))))) (+ 1 (pow (sin phi1) 2))) (/ (* (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2))) (- (* -1/2 (pow (sin phi1) 2)) 1/2)) (+ 1 (pow (sin phi1) 2)))))))) (+ (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (+ 1 (pow (sin phi1) 2))) (/ (* (- 1 (pow (sin phi1) 4)) (- (* -1/2 (pow (sin phi1) 2)) 1/2)) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))) (/ 1 (+ 1 (pow (sin phi1) 2)))) (/ (pow (sin phi1) 4) (+ 1 (pow (sin phi1) 2))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (cos phi1))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (+ (cos phi1) (* -1/6 (* (pow delta 2) (cos phi1)))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (+ (cos phi1) (* (pow delta 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow delta 2) (cos phi1)))))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* delta (+ (cos phi1) (* (pow delta 2) (+ (* -1/6 (cos phi1)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (sin phi1)))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* -1/2 (* delta (sin phi1))) (* (cos phi1) (cos theta)))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (* (cos phi1) (cos theta)))))) (* (cos phi1) (cos theta)))))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (sin phi1)))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (+ (sin phi1) (* delta (cos phi1)))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (+ (sin phi1) (* delta (+ (cos phi1) (* -1/2 (* delta (sin phi1))))))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (+ (sin phi1) (* delta (+ (cos phi1) (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (cos phi1))))))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) #s(hole binary64 (+ (sin phi1) (* delta (cos phi1)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (cos phi1) (* -1/2 (* delta (sin phi1))))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (cos phi1) (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (cos phi1))))))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin delta) (sin theta)) (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 delta) (sin theta)) (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 (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta)))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta)))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (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) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (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) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (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) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (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 (* (* (sin phi1) (sin delta)) (cos theta)) #s(hole binary64 (* delta (* (cos theta) (sin phi1)))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos theta) (sin phi1)))) (* (cos theta) (sin phi1))))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* (cos theta) (sin phi1)) (* (pow delta 2) (+ (* -1/6 (* (cos theta) (sin phi1))) (* 1/120 (* (pow delta 2) (* (cos theta) (sin phi1))))))))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* (cos theta) (sin phi1)) (* (pow delta 2) (+ (* -1/6 (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos theta) (sin phi1)))) (* 1/120 (* (cos theta) (sin phi1)))))))))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* delta (sin phi1))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* delta (+ (sin phi1) (* -1/6 (* (pow delta 2) (sin phi1)))))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* delta (+ (sin phi1) (* (pow delta 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow delta 2) (sin phi1)))))))))
#s(approx (* (sin phi1) (sin delta)) #s(hole binary64 (* delta (+ (sin phi1) (* (pow delta 2) (+ (* -1/6 (sin phi1)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin phi1))) (* 1/120 (sin phi1))))))))))
#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 (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (sin delta) #s(hole binary64 (sin delta)))
#s(approx (pow (pow (cos delta) 3) 3) #s(hole binary64 (pow (cos delta) 9)))
#s(approx (pow (cos delta) 3) #s(hole binary64 (pow (cos delta) 3)))
#s(approx (cos delta) #s(hole binary64 (cos delta)))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (+ phi1 delta) #s(hole binary64 (* delta (+ 1 (/ phi1 delta)))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (sin (- phi1 (* -1 delta)))))
#s(approx (+ phi1 delta) #s(hole binary64 (* -1 (* delta (- (* -1 (/ phi1 delta)) 1)))))
#s(approx (* (* (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 (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (/ (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))))
#s(approx (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))) (/ (* (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (* (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2))))) (/ (pow (cos delta) 9) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))) (/ (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))))))
#s(approx (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 7)))) (* (+ (* 2 (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))) (* 4 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))) (+ (/ (* (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))) (+ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2))))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (* (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2))) (/ (* (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))) (/ (* (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (* (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))))))) (/ (* (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (* (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2))))) (/ (pow (cos delta) 9) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))) (/ (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))))))
#s(approx (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))) (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 9) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 7)))) (* (+ (* 2 (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))) (* 4 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 2 (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))) (* 4 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))))))) (+ (* -1/6 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 7)))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* (+ (* -4 (* (cos phi1) (* (sin delta) (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (* 2 (* (+ (* -2 (* (cos phi1) (* (sin delta) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* 2 (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))) (+ (/ (* (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))) (+ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2))))))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))) (/ (* (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (* (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))) (+ (/ (* (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2))))) (+ (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (+ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* 2 (* (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (* (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2))) (/ (* (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 7)))) (* (+ (* 2 (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))) (* 4 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))) (+ (/ (* (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))) (+ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2))))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (* (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2))) (/ (* (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))) (/ (* (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (* (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))))))) (+ (/ (* (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))) (+ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2))))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (* (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2))) (/ (* (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))) (/ (* (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (* (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2))))) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))))))) (/ (* (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (* (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2))))) (/ (pow (cos delta) 9) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))) (/ (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)) (* (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))))))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) #s(hole binary64 (/ (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))) (/ (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2)))) (/ (pow (cos delta) 9) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))) (/ (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 7)))) (* (+ (* 2 (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))) (* 4 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))) (+ (/ (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))) (/ (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2)))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (/ (* (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2)))))) (/ (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2)))) (/ (pow (cos delta) 9) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))) (/ (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))) (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 9) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 7)))) (* (+ (* 2 (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))) (* 4 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 2 (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))) (* 4 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))))))) (+ (* -1/6 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 7)))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* (+ (* -4 (* (cos phi1) (* (sin delta) (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (* 2 (* (+ (* -2 (* (cos phi1) (* (sin delta) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* 2 (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))) (+ (/ (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 7)))) (* (+ (* 2 (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))) (* 4 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))) (+ (/ (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))) (/ (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2)))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (/ (* (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (+ (/ (* (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* 2 (* (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2)) (/ (* (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))) (/ (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2)))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))))))) (+ (/ (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (- (* -1 (/ (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))) (/ (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2)))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))) (/ (* (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2)))))) (/ (* (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))) (pow (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))) 2)))) (/ (pow (cos delta) 9) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))) (/ (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) #s(hole binary64 (- (pow (cos delta) 9) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) #s(hole binary64 (- (+ (* -1 (* (pow theta 2) (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))))) (pow (cos delta) 9)) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (* (pow theta 2) (* (pow (sin phi1) 9) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 7)))) (* (+ (* 2 (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))) (* 4 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))))) (pow (cos delta) 9)) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) #s(hole binary64 (- (+ (* (pow theta 2) (- (* (pow theta 2) (- (* -1 (* (pow theta 2) (* (pow (sin phi1) 9) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 2 (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))) (* 4 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))))))) (+ (* -1/6 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 7)))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* (+ (* -4 (* (cos phi1) (* (sin delta) (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (* 2 (* (+ (* -2 (* (cos phi1) (* (sin delta) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* 2 (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (sin phi1) 9) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 7)))) (* (+ (* 2 (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))) (* 4 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))))) (pow (cos delta) 9)) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) #s(hole binary64 (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9))))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) #s(hole binary64 (+ (* (pow theta 2) (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8))))))) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) #s(hole binary64 (+ (* (pow theta 2) (+ (* (pow theta 2) (* (pow (sin phi1) 9) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 7)))) (* (+ (* 2 (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))) (* 4 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))))) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) #s(hole binary64 (+ (* (pow theta 2) (+ (* (pow theta 2) (+ (* (pow theta 2) (* (pow (sin phi1) 9) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 2 (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))) (* 4 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))))))) (+ (* -1/6 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 7)))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* (+ (* -4 (* (cos phi1) (* (sin delta) (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (* 2 (* (+ (* -2 (* (cos phi1) (* (sin delta) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* 2 (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 9) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 7)))) (* (+ (* 2 (* (+ (* 2 (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))) (* 4 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 9) (+ (* -4 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 8)))))))) (* (pow (sin phi1) 9) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 9)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (+ (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (+ (* (pow theta 2) (+ (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) #s(hole binary64 (+ (* (pow theta 2) (+ (* (pow theta 2) (+ (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (* (* (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 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 (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) #s(hole binary64 (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6)))))
#s(approx (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) #s(hole binary64 (+ (* (pow theta 2) (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))))
#s(approx (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) #s(hole binary64 (+ (* (pow theta 2) (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (* (pow theta 2) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2))))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))))
#s(approx (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) #s(hole binary64 (+ (* (pow theta 2) (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (* (pow theta 2) (+ (* (pow theta 2) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* 2 (* (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)))))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (pow (cos delta) 6))))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) #s(hole binary64 (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) #s(hole binary64 (+ (* (pow theta 2) (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) #s(hole binary64 (+ (* (pow theta 2) (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (* (pow theta 2) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2))))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) #s(hole binary64 (+ (* (pow theta 2) (+ (* 2 (* (pow (sin phi1) 6) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (* (pow theta 2) (+ (* (pow theta 2) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* 2 (* (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 6) (+ (* 2 (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)))))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))))) (+ (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (* (pow (sin phi1) 6) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow theta 2) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow theta 2) (+ (* (pow theta 2) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow theta 2) (+ (* (pow theta 2) (+ (* (pow theta 2) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))) (* (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow theta 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow theta 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (+ (* (pow theta 2) (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow theta 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow theta 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (+ (* (pow theta 2) (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (+ (* -1 (* (pow theta 2) (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* (pow theta 2) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) #s(hole binary64 (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* (pow theta 2) (+ (* (pow theta 2) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (pow theta 2) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) #s(hole binary64 (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* (pow theta 2) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))) (/ (pow (cos delta) 2) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (/ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* 1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2)))))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))) (/ (pow (cos delta) 2) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (/ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* -1 (/ (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* 1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2)))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/720 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))) (* 1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))))) (+ (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* 1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2)))))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))) (/ (pow (cos delta) 2) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (/ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (* (sin delta) (sin theta)) (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 delta) (sin theta)) (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 (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta)))) #s(hole binary64 (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta)))) #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) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (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))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (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))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) #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) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) #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) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) #s(hole binary64 (+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1))))))))))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) #s(hole binary64 (* (sin delta) (sin phi1))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (sin delta) (sin phi1)))) (* (sin delta) (sin phi1)))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* (sin delta) (sin phi1)) (* (pow theta 2) (+ (* -1/2 (* (sin delta) (sin phi1))) (* 1/24 (* (pow theta 2) (* (sin delta) (sin phi1)))))))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* (sin delta) (sin phi1)) (* (pow theta 2) (+ (* -1/2 (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (sin delta) (sin phi1)))) (* 1/24 (* (sin delta) (sin phi1))))))))))
#s(approx (sin theta) #s(hole binary64 (sin theta)))
#s(approx (cos theta) #s(hole binary64 (cos theta)))

Outputs
(/.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 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 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 9 binary64))) (+.f64 (pow.f64 (cos.f64 delta) #s(literal 6 binary64)) (+.f64 (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 6 binary64)) (pow.f64 (.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 (cos.f64 delta) (cos.f64 delta) (+.f64 (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 2 binary64)) (.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 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 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 9 binary64))) (+.f64 (pow.f64 (cos.f64 delta) #s(literal 6 binary64)) (+.f64 (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 6 binary64)) (pow.f64 (.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 (cos.f64 delta) (cos.f64 delta) (+.f64 (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 2 binary64)) (.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 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 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 9 binary64))) (+.f64 (pow.f64 (cos.f64 delta) #s(literal 6 binary64)) (+.f64 (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 6 binary64)) (pow.f64 (.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 (cos.f64 delta) (cos.f64 delta) (+.f64 (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 2 binary64)) (.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 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 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 9 binary64))) (+.f64 (pow.f64 (cos.f64 delta) #s(literal 6 binary64)) (+.f64 (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 6 binary64)) (pow.f64 (.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 (cos.f64 delta) (cos.f64 delta) (+.f64 (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 2 binary64)) (.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 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 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 9 binary64))) (+.f64 (pow.f64 (cos.f64 delta) #s(literal 6 binary64)) (+.f64 (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 6 binary64)) (pow.f64 (.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 (cos.f64 delta) (cos.f64 delta) (+.f64 (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 2 binary64)) (.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 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 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 9 binary64))) (+.f64 (pow.f64 (cos.f64 delta) #s(literal 6 binary64)) (+.f64 (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 6 binary64)) (pow.f64 (.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 (cos.f64 delta) (cos.f64 delta) (+.f64 (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 2 binary64)) (.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 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 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 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 9 binary64))) (+.f64 (pow.f64 (cos.f64 delta) #s(literal 6 binary64)) (+.f64 (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 6 binary64)) (pow.f64 (.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)))))) (neg.f64 (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (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 2 binary64)) (.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 (pow.f64 (cos.f64 delta) #s(literal 9 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 9 binary64))) (+.f64 (pow.f64 (cos.f64 delta) #s(literal 6 binary64)) (+.f64 (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 6 binary64)) (pow.f64 (.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 (cos.f64 delta) (cos.f64 delta) (+.f64 (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 2 binary64)) (.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 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 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 9 binary64)))) (neg.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 6 binary64)) (+.f64 (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 6 binary64)) (pow.f64 (.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))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 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 9 binary64))) (+.f64 (pow.f64 (cos.f64 delta) #s(literal 6 binary64)) (+.f64 (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 6 binary64)) (pow.f64 (.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)))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (+.f64 (pow.f64 (cos.f64 delta) #s(literal 6 binary64)) (+.f64 (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 6 binary64)) (pow.f64 (.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))))) (/.f64 (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 9 binary64)) (+.f64 (pow.f64 (cos.f64 delta) #s(literal 6 binary64)) (+.f64 (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 6 binary64)) (pow.f64 (.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))))))
(.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 6 binary64)) (+.f64 (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 6 binary64)) (pow.f64 (.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)))) (-.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))))
(/.f64 (-.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) #s(literal 3 binary64)) (pow.f64 (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 9 binary64)) #s(literal 3 binary64))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (fma.f64 (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 9 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 9 binary64)) (.f64 (pow.f64 (cos.f64 delta) #s(literal 9 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 9 binary64))))))
(-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 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 9 binary64)))
(*.f64 (pow.f64 (cos.f64 delta) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)))
(*.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))
(pow.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) #s(literal 3 binary64))
(pow.f64 (cos.f64 delta) #s(literal 9 binary64))
(exp.f64 (*.f64 (log.f64 (cos.f64 delta)) #s(literal 9 binary64)))
(exp.f64 (*.f64 (log.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) #s(literal 3 binary64)))
(*.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (cos.f64 delta))
(*.f64 (cos.f64 delta) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))
(pow.f64 (cos.f64 delta) #s(literal 3 binary64))
(exp.f64 (*.f64 (log.f64 (cos.f64 delta)) #s(literal 3 binary64)))
(sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 delta))
(cos.f64 delta)
#s(literal 3 binary64)
(.f64 (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 6 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)))
(.f64 (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)) (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 6 binary64)))
(pow.f64 (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)) #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 9 binary64))
(exp.f64 (.f64 (log.f64 (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))) #s(literal 3 binary64)))
(.f64 (pow.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 (sin.f64 phi1) #s(literal 3 binary64)))
(.f64 (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 2 binary64)) (.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 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) (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 2 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))
(exp.f64 (.f64 (log.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)))
(.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 (.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))))))
(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 (sin.f64 phi1) (cos.f64 delta)))
(*.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 (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)
(/.f64 (+.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 6 binary64)) #s(literal 3 binary64)) (pow.f64 (+.f64 (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 6 binary64)) (pow.f64 (.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))) #s(literal 3 binary64))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)) (-.f64 (.f64 (+.f64 (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 6 binary64)) (pow.f64 (.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))) (+.f64 (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 6 binary64)) (pow.f64 (.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)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 6 binary64)) (+.f64 (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 6 binary64)) (pow.f64 (.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 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (+.f64 (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 6 binary64)) (pow.f64 (.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 (fabs.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (fabs.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (+.f64 (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 6 binary64)) (pow.f64 (.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 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (+.f64 (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 6 binary64)) (pow.f64 (.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))))
(+.f64 (pow.f64 (cos.f64 delta) #s(literal 6 binary64)) (+.f64 (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 6 binary64)) (pow.f64 (.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))))
(/.f64 (+.f64 (pow.f64 (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 6 binary64)) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.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)) #s(literal 3 binary64))) (fma.f64 (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 6 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 6 binary64)) (-.f64 (.f64 (pow.f64 (.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)) (pow.f64 (.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))) (.f64 (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 6 binary64)) (pow.f64 (.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 (neg.f64 (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))) (neg.f64 (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))) (pow.f64 (.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 (fabs.f64 (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))) (fabs.f64 (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))) (pow.f64 (.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 (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)) (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)) (pow.f64 (.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)))
(+.f64 (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 6 binary64)) (pow.f64 (.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)))
(.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)))
(pow.f64 (.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))
(/.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 6 binary64)) (pow.f64 (+.f64 (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 2 binary64)) (.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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (-.f64 (.f64 (+.f64 (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 2 binary64)) (.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 (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 2 binary64)) (.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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (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 2 binary64)) (.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))))))))
(fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (cos.f64 delta)) (+.f64 (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 2 binary64)) (.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)))))
(fma.f64 (fabs.f64 (cos.f64 delta)) (fabs.f64 (cos.f64 delta)) (+.f64 (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 2 binary64)) (.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)))))
(fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (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 2 binary64)) (.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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (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 2 binary64)) (.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 (.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 6 binary64)) (pow.f64 (.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 (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 2 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 2 binary64)) (-.f64 (.f64 (.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 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) (.f64 (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 2 binary64)) (.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)))))))
(fma.f64 (pow.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.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))))
(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 (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 2 binary64)) (.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 (pow.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(.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)))
(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 2 binary64))
(exp.f64 (.f64 (log.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 2 binary64)))
#s(literal 2 binary64)
(.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 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (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 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))) (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta)))) (.f64 lambda1 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta)))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
(atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(/.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(approx (sin theta) theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(approx (sin theta) theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(approx (sin theta) theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))))) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(approx (sin theta) theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(approx (sin theta) theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(approx (sin theta) theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(approx (sin theta) theta))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
#s(approx (sin theta) theta)
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))) (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))
(.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)) (-.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))
(fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
(sin.f64 (+.f64 phi1 delta))
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(/.f64 (+.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 delta #s(literal 3 binary64))) (fma.f64 phi1 phi1 (-.f64 (.f64 delta delta) (.f64 phi1 delta))))
(+.f64 phi1 delta)
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))))) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))) (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))
(.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)) (-.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))
(fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
(sin.f64 (+.f64 phi1 delta))
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (sin.f64 delta)))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (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))))))
(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)))))
(.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (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(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (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))) (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))) (.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)))))))
(-.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))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1)) (.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (cos.f64 phi1)) (-.f64 (.f64 (.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 (.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))))))
(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)))
(+.f64 (.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)))
(.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 theta))
(*.f64 (sin.f64 phi1) (sin.f64 delta))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 delta)) (cos.f64 (+.f64 phi1 delta))) #s(literal 2 binary64))
(*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))
(*.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(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 9 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 9 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))))))))
#s(approx lambda1 lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (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 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 9 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))))) lambda1))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (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 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))) lambda1))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))) lambda1))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (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 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 9 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (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 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 9 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 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 (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) (cos.f64 delta))
#s(approx (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) (+.f64 (cos.f64 delta) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 (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 (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (+.f64 (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 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (+.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.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)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))))) (+.f64 (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 (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi1 #s(literal 3 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 (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (fma.f64 (pow.f64 phi1 #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.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 (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (fma.f64 (pow.f64 phi1 #s(literal 3 binary64)) (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 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 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.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 (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (pow.f64 (cos.f64 delta) #s(literal 9 binary64)))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi1 #s(literal 9 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 9 binary64))) (pow.f64 (cos.f64 delta) #s(literal 9 binary64))))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (fma.f64 (pow.f64 phi1 #s(literal 9 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal 8 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 8 binary64))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 8 binary64)))))) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 9 binary64))) (pow.f64 (cos.f64 delta) #s(literal 9 binary64))))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) (.f64 (pow.f64 phi1 #s(literal 9 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 9 binary64))))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) (.f64 (pow.f64 phi1 #s(literal 9 binary64)) (fma.f64 phi1 (fma.f64 #s(literal 8 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 8 binary64))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 8 binary64)))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 9 binary64)))))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) (.f64 (pow.f64 phi1 #s(literal 9 binary64)) (fma.f64 phi1 (fma.f64 #s(literal 8 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 8 binary64))) (fma.f64 phi1 (fma.f64 #s(literal -3/2 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 9 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 9 binary64)) (fma.f64 #s(literal 8 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 7 binary64))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 4 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 #s(literal 4 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))))) (.f64 #s(literal 16 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 6 binary64)))))))))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 8 binary64))))) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 9 binary64)))))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) (.f64 (pow.f64 phi1 #s(literal 9 binary64)) (fma.f64 phi1 (fma.f64 #s(literal 8 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 8 binary64))) (fma.f64 phi1 (fma.f64 #s(literal -3/2 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 9 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 9 binary64)) (fma.f64 #s(literal 8 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 7 binary64))) (fma.f64 phi1 (fma.f64 #s(literal -4 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 8 binary64))) (fma.f64 #s(literal -3/2 binary64) (fma.f64 #s(literal 8 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 8 binary64))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 8 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 8 binary64))) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 4 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 #s(literal 4 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))))) (.f64 #s(literal 16 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 6 binary64))))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 4 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))) (.f64 #s(literal 4 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))))) (.f64 #s(literal 8 binary64) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 #s(literal 4 binary64) (.f64 (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 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 4 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 #s(literal 4 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))))) (.f64 #s(literal 16 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 6 binary64))))))))))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 8 binary64))))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 9 binary64)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (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 (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))))))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) (.f64 phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) (.f64 phi1 (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))) (sin phi1)) (.f64 phi1 (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) (.f64 phi1 (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (fma.f64 #s(literal -1/3 binary64) (.f64 phi1 (cos.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (+ (* (* (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 (* (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 (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))
#s(approx (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) (fma.f64 (pow.f64 phi1 #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))
#s(approx (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) (fma.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 phi1 (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)))) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))
#s(approx (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) (fma.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 phi1 (fma.f64 phi1 (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)))) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 phi1 (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 phi1 (fma.f64 phi1 (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))))))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 6 binary64))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 phi1 (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 phi1 (fma.f64 phi1 (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))))))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (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) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) (fma.f64 phi1 (fma.f64 phi1 (+.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.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) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 delta) (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 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.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 (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) (.f64 phi1 (.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) (.f64 phi1 (fma.f64 phi1 (+.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) (.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 delta) (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 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) (.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal 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)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (cos.f64 delta) (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 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (.f64 (.f64 phi1 phi1) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal 2 binary64) (.f64 phi1 (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (.f64 (.f64 phi1 phi1) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (.f64 (.f64 phi1 phi1) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (fma.f64 #s(literal -2/3 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (.f64 phi1 (.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (.f64 phi1 (fma.f64 phi1 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (.f64 (cos.f64 delta) (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))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/3 binary64) (.f64 phi1 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (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)))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (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) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 delta))) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (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 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi1 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (fma.f64 (sin.f64 delta) (sin.f64 theta) (.f64 (.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 (* (* (cos phi1) (sin delta)) (sin theta)) (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) (sin delta)) (sin.f64 delta))
#s(approx (* (cos phi1) (sin delta)) (+.f64 (sin.f64 delta) (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 phi1 phi1) (sin.f64 delta)))))
#s(approx (* (cos phi1) (sin delta)) (+.f64 (sin.f64 delta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 delta) (.f64 #s(literal 1/24 binary64) (.f64 (*.f64 phi1 phi1) (sin.f64 delta)))))))
#s(approx (* (cos phi1) (sin delta)) (+.f64 (sin.f64 delta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 delta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi1 phi1) (sin.f64 delta)) (*.f64 #s(literal 1/24 binary64) (sin.f64 delta))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+.f64 (cos.f64 delta) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 delta))) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (cos.f64 delta))) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (fma.f64 phi1 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (fma.f64 #s(literal -1/3 binary64) (.f64 phi1 (cos.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 phi1 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))) (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 delta)))))) (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) (sin.f64 delta))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) (+.f64 (sin.f64 delta) (*.f64 phi1 (cos.f64 delta))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) (+.f64 (sin.f64 delta) (.f64 phi1 (+.f64 (cos.f64 delta) (.f64 #s(literal -1/2 binary64) (*.f64 phi1 (sin.f64 delta)))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) (+.f64 (sin.f64 delta) (.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 delta) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 delta)))))))))
#s(approx (+ phi1 delta) delta)
#s(approx (+ phi1 delta) (+.f64 delta phi1))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) (sin.f64 delta))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) (+.f64 (sin.f64 delta) (*.f64 phi1 (cos.f64 delta))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) (+.f64 (sin.f64 delta) (.f64 phi1 (+.f64 (cos.f64 delta) (.f64 #s(literal -1/2 binary64) (*.f64 phi1 (sin.f64 delta)))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) (+.f64 (sin.f64 delta) (.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 delta) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 delta)))))))))
#s(approx (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (* (* (sin delta) (sin theta)) (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 delta) (sin theta)) (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 delta) (sin theta)) (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 delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta)))) (cos.f64 delta))
#s(approx (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (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) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (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) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (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) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) (.f64 phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) (.f64 phi1 (fma.f64 phi1 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (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) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) (.f64 phi1 (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (fma.f64 #s(literal -1/3 binary64) (.f64 phi1 (cos.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) (.f64 phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 phi1 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) (.f64 phi1 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 phi1 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))))))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) (.f64 phi1 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 phi1 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal 1/120 binary64) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))))
#s(approx (* (sin phi1) (sin delta)) (*.f64 phi1 (sin.f64 delta)))
#s(approx (* (sin phi1) (sin delta)) (.f64 phi1 (+.f64 (sin.f64 delta) (.f64 #s(literal -1/6 binary64) (.f64 (.f64 phi1 phi1) (sin.f64 delta))))))
#s(approx (* (sin phi1) (sin delta)) (.f64 phi1 (+.f64 (sin.f64 delta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/6 binary64) (sin.f64 delta) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 phi1 phi1) (sin.f64 delta))))))))
#s(approx (* (sin phi1) (sin delta)) (.f64 phi1 (+.f64 (sin.f64 delta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/6 binary64) (sin.f64 delta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 phi1 phi1) (sin.f64 delta)) (.f64 #s(literal 1/120 binary64) (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 (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 (* (* (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 (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 9 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))))))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 9 binary64))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 9 binary64))))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 9 binary64)))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64)))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) (.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 (* (sin phi1) (cos delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))
#s(approx (sin phi1) (sin.f64 phi1))
#s(approx (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 6 binary64))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) (fma.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))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (.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 (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (* (cos phi1) (sin delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) (sin.f64 (+.f64 delta phi1)))
#s(approx (+ phi1 delta) phi1)
#s(approx (+ phi1 delta) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (/.f64 delta phi1))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta)))) (-.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
#s(approx (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) (fma.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (sin.f64 phi1))))
#s(approx (* (sin phi1) (sin delta)) (*.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 (pow (sin phi1) 2) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) (sin.f64 (-.f64 delta (*.f64 #s(literal -1 binary64) phi1))))
#s(approx (+ phi1 delta) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 delta phi1)) #s(literal 1 binary64)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (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 (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 18 binary64))) (*.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))))))
#s(approx (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) (-.f64 (fma.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (fma.f64 #s(literal 8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64))))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))))) (/.f64 (.f64 (fma.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 18 binary64)))) (pow.f64 (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))) #s(literal 2 binary64)))) (pow.f64 (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))) #s(literal -1 binary64))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 18 binary64)) (*.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))))))
#s(approx (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (fma.f64 #s(literal 8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64))))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))))) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 9/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 8 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 7 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 #s(literal 4 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 #s(literal 16 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))))))))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))))) (fma.f64 (/.f64 (fma.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (fma.f64 #s(literal 8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64))))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))))) (/.f64 (.f64 (fma.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 18 binary64)))) (pow.f64 (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))) #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))) (/.f64 (.f64 (fma.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (-.f64 (fma.f64 #s(literal -3/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))))) (pow.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) #s(literal 2 binary64)))))) #s(literal 3 binary64)) (fma.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) #s(literal 1 binary64)) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 18 binary64)))) (pow.f64 (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 18 binary64)))) (pow.f64 (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))) #s(literal 2 binary64)))) (pow.f64 (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))) #s(literal -1 binary64))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 18 binary64)) (*.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))))))
#s(approx (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (fma.f64 #s(literal 8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64))))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))))) (.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 9/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 8 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 7 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 #s(literal 4 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 #s(literal 16 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))))))))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))))) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (fma.f64 #s(literal -4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 #s(literal 4 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 #s(literal 16 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 #s(literal 4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))))))) (.f64 #s(literal 8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 #s(literal 4 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 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))))) (+.f64 (/.f64 (.f64 (fma.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))))))))))) (fma.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (fma.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (fma.f64 #s(literal -3/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))))) (pow.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) #s(literal 2 binary64)))))) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) #s(literal 1 binary64)))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 18 binary64)))) (pow.f64 (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))) #s(literal 2 binary64))) (/.f64 (fma.f64 (fma.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 9/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 8 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 7 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 #s(literal 4 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 #s(literal 16 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))))))))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))))) (fma.f64 (/.f64 (fma.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (fma.f64 #s(literal 8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64))))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))))) (/.f64 (.f64 (fma.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 18 binary64)))) (pow.f64 (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))) #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))) (/.f64 (.f64 (fma.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (-.f64 (fma.f64 #s(literal -3/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))))) (pow.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) #s(literal 2 binary64)))))) #s(literal 3 binary64)) (fma.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) #s(literal 1 binary64)) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 18 binary64)))) (pow.f64 (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))) #s(literal 2 binary64))))) (.f64 (fma.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (-.f64 (fma.f64 #s(literal -3/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))))) (pow.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) #s(literal 2 binary64)))))) #s(literal 3 binary64)) (fma.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) #s(literal 1 binary64)) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (fma.f64 #s(literal 8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64))))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))))) (/.f64 (.f64 (fma.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 18 binary64)))) (pow.f64 (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))) #s(literal 2 binary64)))))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))))))))) (fma.f64 (/.f64 (fma.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (fma.f64 #s(literal 8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64))))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))))) (/.f64 (.f64 (fma.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 18 binary64)))) (pow.f64 (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))) #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))) (/.f64 (.f64 (fma.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (-.f64 (fma.f64 #s(literal -3/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))))) (pow.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) #s(literal 2 binary64)))))) #s(literal 3 binary64)) (fma.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) #s(literal 1 binary64)) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 18 binary64)))) (pow.f64 (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 18 binary64)))) (pow.f64 (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))) #s(literal 2 binary64)))) (pow.f64 (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))) #s(literal -1 binary64))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 18 binary64)) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))))))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 18 binary64))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (-.f64 (fma.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 18 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))) #s(literal -1 binary64))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 18 binary64)) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))))))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 9/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 8 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 7 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 #s(literal 4 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 #s(literal 16 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))))))))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 18 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 18 binary64))) (-.f64 (fma.f64 #s(literal -3/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))))) (pow.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) #s(literal 2 binary64)))))) #s(literal 3 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 18 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))) #s(literal -1 binary64))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 18 binary64)) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))))))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))) (.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 9/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 8 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 7 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 #s(literal 4 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 #s(literal 16 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))))))))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal -4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 #s(literal 4 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 #s(literal 16 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 #s(literal 4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))))))) (.f64 #s(literal 8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 #s(literal 4 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 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))))))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 18 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))) #s(literal 2 binary64))) (/.f64 (fma.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 9/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 8 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 7 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 #s(literal 4 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 #s(literal 16 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))))))))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 18 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 18 binary64))) (-.f64 (fma.f64 #s(literal -3/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))))) (pow.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) #s(literal 2 binary64)))))) #s(literal 3 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))) #s(literal 2 binary64))))) (.f64 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 18 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -3/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))))) (pow.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) #s(literal 2 binary64)))))) #s(literal 3 binary64)))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 18 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 18 binary64))) (-.f64 (fma.f64 #s(literal -3/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))))) (pow.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) #s(literal 2 binary64)))))) #s(literal 3 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 18 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))) #s(literal -1 binary64))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 18 binary64)) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))))))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 18 binary64))))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64))))))))) (pow.f64 (sin.f64 phi1) #s(literal 18 binary64))))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (.f64 delta (+.f64 #s(literal 9/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 8 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 7 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 #s(literal 4 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 #s(literal 16 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64))))))))) (pow.f64 (sin.f64 phi1) #s(literal 18 binary64))))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (-.f64 (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal -4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 #s(literal 4 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 #s(literal 16 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 #s(literal 4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))))))) (.f64 #s(literal 8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 #s(literal 4 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 #s(literal 9/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 8 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 7 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 #s(literal 4 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 #s(literal 16 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64))))))))) (pow.f64 (sin.f64 phi1) #s(literal 18 binary64))))
#s(approx (pow (pow (cos delta) 3) 3) #s(literal 1 binary64))
#s(approx (pow (pow (cos delta) 3) 3) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -9/2 binary64) (.f64 delta delta))))
#s(approx (pow (pow (cos delta) 3) 3) (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 75/8 binary64) (.f64 delta delta)) #s(literal 9/2 binary64)))))
#s(approx (pow (pow (cos delta) 3) 3) (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 (.f64 delta delta) (+.f64 #s(literal 75/8 binary64) (.f64 #s(literal -961/80 binary64) (.f64 delta delta)))) #s(literal 9/2 binary64)))))
#s(approx (pow (cos delta) 3) #s(literal 1 binary64))
#s(approx (pow (cos delta) 3) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -3/2 binary64) (.f64 delta delta))))
#s(approx (pow (cos delta) 3) (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 7/8 binary64) (.f64 delta delta)) #s(literal 3/2 binary64)))))
#s(approx (pow (cos delta) 3) (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 (.f64 delta delta) (+.f64 #s(literal 7/8 binary64) (.f64 #s(literal -61/240 binary64) (.f64 delta delta)))) #s(literal 3/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 (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) (pow.f64 (sin.f64 phi1) #s(literal 18 binary64)))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) (fma.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))))) (pow.f64 (sin.f64 phi1) #s(literal 18 binary64))))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) (fma.f64 delta (fma.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 8 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 7 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 #s(literal 4 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 #s(literal 16 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64))))))) (pow.f64 (sin.f64 phi1) #s(literal 18 binary64))))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) (fma.f64 delta (fma.f64 delta (fma.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal -4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 #s(literal 4 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 #s(literal 16 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 #s(literal 4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))))))) (.f64 #s(literal 8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 #s(literal 4 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 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 8 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 7 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 #s(literal 4 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 #s(literal 16 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 8 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 8 binary64))))))) (pow.f64 (sin.f64 phi1) #s(literal 18 binary64))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (fma.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (fma.f64 delta (fma.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (fma.f64 delta (fma.f64 delta (fma.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) (fma.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (.f64 delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) (fma.f64 delta (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal -1/6 binary64) (.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (+ (* (* (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 (* (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 (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))))
#s(approx (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) (+.f64 #s(literal 1 binary64) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))))
#s(approx (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) (+.f64 #s(literal 1 binary64) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (fma.f64 delta (-.f64 (fma.f64 #s(literal -3/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))))) (pow.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) #s(literal 2 binary64)))))) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))))
#s(approx (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) (+.f64 #s(literal 1 binary64) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (fma.f64 delta (-.f64 (fma.f64 #s(literal -3/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 delta (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))))))))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))))) (pow.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) #s(literal 2 binary64))))))) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (fma.f64 delta (fma.f64 #s(literal -3/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))))) (pow.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (fma.f64 delta (fma.f64 #s(literal -3/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 delta (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))))))))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))))) (pow.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) #s(literal 2 binary64))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 12 binary64)))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (fma.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (fma.f64 delta (fma.f64 delta (fma.f64 #s(literal -3/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (fma.f64 delta (fma.f64 delta (fma.f64 #s(literal -3/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 delta (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) (+.f64 #s(literal 1 binary64) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) (+.f64 #s(literal 1 binary64) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) (+.f64 #s(literal 1 binary64) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 delta (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 delta (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (fma.f64 #s(literal 2 binary64) (.f64 delta (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 delta (fma.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (fma.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (fma.f64 delta (fma.f64 #s(literal -1 binary64) (.f64 delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (fma.f64 delta (fma.f64 delta (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 delta (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))
#s(approx (* (sin delta) (sin theta)) (.f64 delta (+.f64 (sin.f64 theta) (.f64 #s(literal -1/6 binary64) (.f64 (.f64 delta delta) (sin.f64 theta))))))
#s(approx (* (sin delta) (sin theta)) (.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 delta) (sin theta)) (.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 (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (-.f64 (fma.f64 delta (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64)))) (pow.f64 (+.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 4 binary64)) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (-.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64)))) (pow.f64 (+.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 4 binary64)) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64))) (/.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (-.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (.f64 (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64)))) (-.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (-.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 2 binary64)))) (pow.f64 (+.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 4 binary64)) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (.f64 delta (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 delta delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (sin.f64 theta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (.f64 delta (fma.f64 (cos.f64 phi1) (sin.f64 theta) (.f64 (.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 (* (* (cos phi1) (sin delta)) (sin theta)) (.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 (* (cos phi1) (sin delta)) (*.f64 delta (cos.f64 phi1)))
#s(approx (* (cos phi1) (sin delta)) (.f64 delta (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/6 binary64) (.f64 (.f64 delta delta) (cos.f64 phi1))))))
#s(approx (* (cos phi1) (sin delta)) (.f64 delta (+.f64 (cos.f64 phi1) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 delta delta) (cos.f64 phi1))))))))
#s(approx (* (cos phi1) (sin delta)) (.f64 delta (+.f64 (cos.f64 phi1) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 delta delta) (cos.f64 phi1)) (.f64 #s(literal 1/120 binary64) (cos.f64 phi1)))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (.f64 delta (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (-.f64 (.f64 delta (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (.f64 delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 delta (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal -1/6 binary64) (.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 phi1))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+.f64 (sin.f64 phi1) (.f64 delta (.f64 (cos.f64 phi1) (cos.f64 theta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+.f64 (sin.f64 phi1) (.f64 delta (fma.f64 #s(literal -1/2 binary64) (.f64 delta (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+.f64 (sin.f64 phi1) (.f64 delta (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal -1/6 binary64) (.f64 delta (.f64 (cos.f64 phi1) (cos.f64 theta))))) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) (sin.f64 phi1))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) (+.f64 (sin.f64 phi1) (.f64 delta (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (*.f64 delta (sin.f64 phi1)))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) (+.f64 (sin.f64 phi1) (.f64 delta (+.f64 (cos.f64 phi1) (.f64 delta (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal -1/6 binary64) (.f64 delta (cos.f64 phi1)))))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) (sin.f64 phi1))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) (+.f64 (sin.f64 phi1) (.f64 delta (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (*.f64 delta (sin.f64 phi1)))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) (+.f64 (sin.f64 phi1) (.f64 delta (+.f64 (cos.f64 phi1) (.f64 delta (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal -1/6 binary64) (.f64 delta (cos.f64 phi1)))))))))
#s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta))))
#s(approx (* (* (sin delta) (sin theta)) (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 delta) (sin theta)) (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 delta) (sin theta)) (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 (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (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) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (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) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (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) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (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) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (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) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (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 (* (* (sin phi1) (sin delta)) (cos theta)) (.f64 delta (.f64 (cos.f64 theta) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) (.f64 delta (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 delta delta) (.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) (.f64 delta (fma.f64 (cos.f64 theta) (sin.f64 phi1) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 phi1)) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 delta delta) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) (.f64 delta (fma.f64 (cos.f64 theta) (sin.f64 phi1) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (.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 theta) (sin.f64 phi1))) (.f64 #s(literal 1/120 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))))))
#s(approx (* (sin phi1) (sin delta)) (*.f64 delta (sin.f64 phi1)))
#s(approx (* (sin phi1) (sin delta)) (.f64 delta (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/6 binary64) (.f64 (.f64 delta delta) (sin.f64 phi1))))))
#s(approx (* (sin phi1) (sin delta)) (.f64 delta (+.f64 (sin.f64 phi1) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi1) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 delta delta) (sin.f64 phi1))))))))
#s(approx (* (sin phi1) (sin delta)) (.f64 delta (+.f64 (sin.f64 phi1) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi1) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 delta delta) (sin.f64 phi1)) (.f64 #s(literal 1/120 binary64) (sin.f64 phi1)))))))))
#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 (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (sin delta) (sin.f64 delta))
#s(approx (pow (pow (cos delta) 3) 3) (pow.f64 (cos.f64 delta) #s(literal 9 binary64)))
#s(approx (pow (cos delta) 3) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)))
#s(approx (cos delta) (cos.f64 delta))
#s(approx (* (cos theta) (sin delta)) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (* (sin delta) (sin theta)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (+ phi1 delta) (*.f64 delta (+.f64 #s(literal 1 binary64) (/.f64 phi1 delta))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos phi1) (sin delta))) (sin.f64 (-.f64 phi1 (*.f64 #s(literal -1 binary64) delta))))
#s(approx (+ phi1 delta) (.f64 #s(literal -1 binary64) (.f64 delta (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 phi1 delta)) #s(literal 1 binary64)))))
#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 (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))))))
#s(approx (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (fma.f64 #s(literal -4 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))))) (/.f64 (.f64 (fma.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64)))) (pow.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64)) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))))))
#s(approx (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (fma.f64 #s(literal -4 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))))) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 7 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 4 binary64))) (.f64 #s(literal 4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))))) (+.f64 (/.f64 (.f64 (fma.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))))) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (pow.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64)))) (pow.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))) #s(literal 2 binary64))) (.f64 (/.f64 (fma.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (fma.f64 #s(literal -4 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))))) (/.f64 (.f64 (fma.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64)))) (pow.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))))))))) (/.f64 (.f64 (fma.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64)))) (pow.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64)) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))))))
#s(approx (/ (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (fma.f64 #s(literal -4 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))))) (.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 7 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 4 binary64))) (.f64 #s(literal 4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))))) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 4 binary64))) (.f64 #s(literal 4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))))))) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 7 binary64)))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (.f64 (fma.f64 #s(literal -4 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 4 binary64))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))))) (fma.f64 (/.f64 (fma.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))))) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (pow.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (fma.f64 #s(literal -4 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))))) (/.f64 (.f64 (fma.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64)))) (pow.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))) (+.f64 (/.f64 (.f64 (fma.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (pow.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (fma.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64)))) (pow.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))) #s(literal 2 binary64))) (.f64 (/.f64 (fma.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 7 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 4 binary64))) (.f64 #s(literal 4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))))) (+.f64 (/.f64 (.f64 (fma.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))))) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (pow.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64)))) (pow.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))) #s(literal 2 binary64))) (.f64 (/.f64 (fma.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (fma.f64 #s(literal -4 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))))) (/.f64 (.f64 (fma.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64)))) (pow.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))))))))) (+.f64 (/.f64 (.f64 (fma.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))))) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (pow.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64)))) (pow.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))) #s(literal 2 binary64))) (.f64 (/.f64 (fma.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (fma.f64 #s(literal -4 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))))) (/.f64 (.f64 (fma.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64)))) (pow.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))))))))) (/.f64 (.f64 (fma.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64)))) (pow.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64)) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))))))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal -4 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64))))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64)))) (pow.f64 (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64)) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))))))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal -4 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64))))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 7 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 4 binary64))) (.f64 #s(literal 4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal -4 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64))))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64)))) (pow.f64 (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))) #s(literal 2 binary64))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (pow.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64)))) (pow.f64 (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64)))) (pow.f64 (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64)) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))))))
#s(approx (/ (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal -4 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64))))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))) (.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 7 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 4 binary64))) (.f64 #s(literal 4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 4 binary64))) (.f64 #s(literal 4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))))))) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 7 binary64)))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (.f64 (fma.f64 #s(literal -4 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 4 binary64))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 7 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 4 binary64))) (.f64 #s(literal 4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal -4 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64))))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64)))) (pow.f64 (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))) #s(literal 2 binary64))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (pow.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64)))) (pow.f64 (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))) #s(literal 2 binary64)))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))) (+.f64 (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64)))) (pow.f64 (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (pow.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal -4 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64))))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64)))) (pow.f64 (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))) #s(literal 2 binary64))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal -4 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64))))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64)))) (pow.f64 (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))) #s(literal 2 binary64))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (pow.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64)))) (pow.f64 (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64)))) (pow.f64 (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64)) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))))))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64))))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal -4 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))))))) (pow.f64 (cos.f64 delta) #s(literal 9 binary64))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64))))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 7 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 4 binary64))) (.f64 #s(literal 4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal -4 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))))))) (pow.f64 (cos.f64 delta) #s(literal 9 binary64))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64))))
#s(approx (- (pow (pow (cos delta) 3) 3) (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3)) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 4 binary64))) (.f64 #s(literal 4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))))))) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 7 binary64)))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (.f64 (fma.f64 #s(literal -4 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 4 binary64))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 7 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 4 binary64))) (.f64 #s(literal 4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal -4 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))))))) (pow.f64 (cos.f64 delta) #s(literal 9 binary64))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64))))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64)))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal -4 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64))))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 7 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 4 binary64))) (.f64 #s(literal 4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal -4 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64))))
#s(approx (pow (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) 3) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 4 binary64))) (.f64 #s(literal 4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))))))) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 7 binary64)))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (.f64 (fma.f64 #s(literal -4 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 4 binary64))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 7 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 4 binary64))) (.f64 #s(literal 4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 9 binary64)) (fma.f64 #s(literal -4 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 8 binary64)))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 9 binary64))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) (.f64 (sin.f64 phi1) (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))) (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 (sin.f64 phi1) (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))) (sin phi1)) (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 (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) (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 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 (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))))
#s(approx (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))))
#s(approx (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (fma.f64 (.f64 theta theta) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (pow.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))))
#s(approx (+ (* (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (pow.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64))))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (fma.f64 (.f64 theta theta) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (pow.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)))))
#s(approx (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (pow.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))))))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))))
#s(approx (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))
#s(approx (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))))
#s(approx (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.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 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))))))
#s(approx (* (sin delta) (sin theta)) (*.f64 theta (sin.f64 delta)))
#s(approx (* (sin delta) (sin theta)) (.f64 theta (+.f64 (sin.f64 delta) (.f64 #s(literal -1/6 binary64) (.f64 (.f64 theta theta) (sin.f64 delta))))))
#s(approx (* (sin delta) (sin theta)) (.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 delta) (sin theta)) (.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 (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)))))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)))))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64))))))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal -1/720 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)))))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)))))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (.f64 theta (.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (.f64 theta (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (.f64 theta (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.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 (* (* (cos phi1) (sin delta)) (sin theta)) (.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 (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (+.f64 (cos.f64 delta) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (+.f64 (cos.f64 delta) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1/24 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (+.f64 (cos.f64 delta) (.f64 (.f64 theta theta) (-.f64 (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal 1/720 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.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 (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.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 (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.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) (sin theta)) (cos phi1)) (.f64 theta (.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (* (* (sin delta) (sin theta)) (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 delta) (sin theta)) (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 delta) (sin theta)) (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 (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta)))) (-.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) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (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)))))) (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) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (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))))))) (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) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (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))))))) (fma.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
#s(approx (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos 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 (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) (fma.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 (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) (fma.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))))))
#s(approx (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) (fma.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (.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 phi1) (sin delta)) (cos theta)) (*.f64 (sin.f64 delta) (sin.f64 phi1)))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 theta theta) (.f64 (sin.f64 delta) (sin.f64 phi1))) (.f64 (sin.f64 delta) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) (fma.f64 (sin.f64 delta) (sin.f64 phi1) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 theta theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
#s(approx (* (* (sin phi1) (sin delta)) (cos theta)) (fma.f64 (sin.f64 delta) (sin.f64 phi1) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 theta theta) (.f64 (sin.f64 delta) (sin.f64 phi1))) (.f64 #s(literal 1/24 binary64) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))))
#s(approx (sin theta) (sin.f64 theta))
#s(approx (cos theta) (cos.f64 theta))

eval1.3s (11.8%)

Memory: -199.2MiB live, 613.4MiB allocated; 1.5s collecting garbage
Compiler: Compiled 224 608 to 9 188 computations (95.9% saved)

prune120.0ms (1.1%)

Memory

-14.7MiB live, 221.9MiB allocated; 11ms collecting garbage

Pruning

73 alts after pruning (66 fresh and 7 done)

	Pruned	Kept	Total
New	1 319	24	1 343
Fresh	7	42	49
Picked	2	3	5
Done	0	4	4
Total	1 328	73	1 401

Accuracy

99.9%

Counts

1 401 → 73

Alt Table

Click to see full alt table

Status	Accuracy	Program
	58.4%	(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta)))))
	48.8%	(/.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))))))))
	38.9%	(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (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 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))) (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta)))) (.f64 lambda1 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta)))))))
	73.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)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	73.4%	(+.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 (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	89.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	88.9%	(+.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 (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (fma.f64 (cos.f64 delta) (cos.f64 delta) (.f64 (neg.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) #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))))))
	94.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (/.f64 (-.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) #s(literal 3 binary64)) (pow.f64 (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)) #s(literal 3 binary64))) #s(approx (+ ( (pow (cos delta) 3) (pow (cos delta) 3)) (+ (* (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (* (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 6 binary64)) (pow.f64 (cos.f64 delta) #s(literal 6 binary64)))))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (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 2 binary64)) (.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))))))))
	84.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 (.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) (+.f64 (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 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 #s(approx (cos theta) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 theta theta)))) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))))
	91.3%	(+.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 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 3 binary64))) #s(approx (+ ( (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
	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)) (.f64 (pow.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) #s(literal 2 binary64)) (pow.f64 (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 (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (cos.f64 delta)) (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) (+.f64 (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 2 binary64)) (.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))))))))
	74.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (exp.f64 (.f64 (log.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))))))
	81.3%	(+.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 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal -1 binary64))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))
	92.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (sin.f64 (+.f64 theta (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))))))
✓	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
✓	92.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 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))))))
	79.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) #s(approx (sin delta) (.f64 (fma.f64 (.f64 delta delta) #s(literal -1/6 binary64) #s(literal 1 binary64)) delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	84.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 #s(approx (cos theta) (fma.f64 (.f64 theta theta) #s(literal -1/2 binary64) #s(literal 1 binary64))) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	91.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) (cos phi1)) (cos.f64 theta)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	91.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx ( (cos theta) (cos phi1)) (cos.f64 theta)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))))))
	94.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx ( (cos theta) (cos phi1)) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	92.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx ( (cos theta) (cos phi1)) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))))))
	90.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (* (cos theta) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	90.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 #s(approx (+ phi1 delta) delta)))))))
	53.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (exp.f64 (.f64 (log.f64 (sin.f64 phi1)) #s(literal 1 binary64))) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	82.4%	(+.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 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1)))))))
	81.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	94.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))
	78.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))))))
✓	90.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	80.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta)))))))
	79.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(approx (cos delta) #s(literal 1 binary64)))))
	81.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	75.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 delta delta) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 delta delta)) #s(literal 1/6 binary64)) (.f64 delta delta) #s(literal 1 binary64)) delta))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	76.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #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))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	92.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (sin.f64 phi1) (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))
✓	94.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))
	91.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta))))))))
	90.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	76.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(approx (sin theta) (.f64 theta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 theta theta)))))) (-.f64 (cos.f64 delta) (.f64 (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 phi1) (sin.f64 delta))))))))
	77.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(approx (sin theta) theta)) (-.f64 (cos.f64 delta) (.f64 (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 phi1) (sin.f64 delta))))))))
	74.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(approx (sin theta) theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 #s(approx (+ phi1 delta) delta)))))))
	76.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(approx (sin theta) theta)) (-.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))))))
	70.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(approx (sin theta) theta)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	70.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(approx (sin theta) theta)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	75.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 #s(approx (sin theta) theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	89.2%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin delta)) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))
	88.7%	(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin delta)) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	74.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (/.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	89.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	78.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
	78.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))))))
✓	88.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	78.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta)))))))
	78.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(approx (cos delta) #s(literal 1 binary64)))))
	73.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #s(approx (sin theta) (.f64 theta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 theta theta))))))) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	74.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) (.f64 delta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 delta delta))))) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	76.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	74.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 theta (sin.f64 delta)))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	99.7%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin phi1)) 2) (* (cos delta) (* (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (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 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) lambda1))))
✓	29.1%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (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))))))
	29.1%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin 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)))))
	23.2%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	12.9%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	21.1%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta)))) (cos.f64 delta))))
	20.0%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (atan2.f64 #s(approx (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.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))))))
	99.7%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (.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))
	29.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))))))))) (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)))))
✓	71.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))))))))) lambda1)

Compiler

Compiled 11 820 to 3 089 computations (73.9% saved)

regimes198.0ms (1.8%)

Memory

48.6MiB live, 326.4MiB allocated; 15ms collecting garbage

Counts

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

Calls

7 calls:

29.0ms	phi2
28.0ms	theta
27.0ms	delta
27.0ms	lambda1
27.0ms	phi1

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)

regimes291.0ms (2.7%)

Memory

-26.7MiB live, 308.9MiB allocated; 130ms collecting garbage

Counts

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

Calls

7 calls:

118.0ms	lambda1
30.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)))))))))
28.0ms	phi2
27.0ms	theta
27.0ms	phi1

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)

regimes188.0ms (1.7%)

Memory

13.1MiB live, 295.7MiB allocated; 16ms collecting garbage

Counts

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

Outputs

(+.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 (*.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) (+.f64 (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 2 binary64)) (*.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))))))))

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes185.0ms (1.7%)

Memory

6.1MiB live, 284.7MiB allocated; 16ms collecting garbage

Counts

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes144.0ms (1.3%)

Memory

-15.9MiB live, 219.5MiB allocated; 20ms collecting garbage

Counts

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes123.0ms (1.1%)

Memory

31.0MiB live, 213.7MiB allocated; 15ms collecting garbage

Counts

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes119.0ms (1.1%)

Memory

-5.8MiB live, 181.5MiB allocated; 24ms 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)) #s(approx (* (sin delta) (sin theta)) (.f64 theta (sin.f64 delta)))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(approx (cos delta) #s(literal 1 binary64)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #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 delta) (.f64 delta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 delta delta))))) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #s(approx (sin theta) (.f64 theta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 theta theta))))))) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 #s(approx (sin theta) theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(approx (cos delta) #s(literal 1 binary64)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (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 delta theta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1))))) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 #s(approx (sin theta) (.f64 theta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 theta theta))))) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (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 (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(approx (sin theta) theta)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(approx (sin theta) theta)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (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 (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (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 (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) #s(approx (- (cos delta) (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (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 (cos.f64 phi1) (sin.f64 delta)) #s(approx (sin theta) theta)) (-.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)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (-.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) (.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 #s(approx ( (cos phi1) (sin delta)) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(approx (sin theta) theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 #s(approx (+ phi1 delta) delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 #s(approx (sin theta) 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 (cos.f64 phi1) (sin.f64 delta)) #s(approx (sin theta) theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (sin phi1) phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (+ (* (* (* (sin phi1) (sin delta)) (cos theta)) (cos phi1)) (* (pow (sin phi1) 2) (cos delta))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #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 (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) (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 (* (/ 1 (pow (sin phi1) -1)) (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) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 #s(approx (+ phi1 delta) delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64)) (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) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 #s(approx (+ phi1 delta) (*.f64 (+.f64 (/.f64 phi1 delta) #s(literal 1 binary64)) delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.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 (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) (cos phi1)) (sin delta)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) #s(approx ( (sin phi1) (cos delta)) (sin.f64 phi1)))))))
(+.f64 lambda1 (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin delta)) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta))))))))

Outputs

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

Calls

7 calls:

21.0ms	theta
18.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)))))))))
18.0ms	phi1
18.0ms	lambda1
14.0ms	phi2

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes81.0ms (0.7%)

Memory

-15.7MiB live, 129.5MiB allocated; 15ms collecting garbage

Counts

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

Outputs

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

Calls

7 calls:

14.0ms	phi2
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)))))))))
10.0ms	phi1
9.0ms	delta
9.0ms	theta

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes39.0ms (0.4%)

Memory

21.1MiB live, 67.0MiB allocated; 5ms collecting garbage

Counts

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

Outputs

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

Calls

7 calls:

9.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))))))))
5.0ms	phi1
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	phi2
5.0ms	theta

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes27.0ms (0.2%)

Memory

-16.6MiB live, 40.1MiB allocated; 13ms collecting garbage

Counts

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

Outputs

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

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

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

Calls

7 calls:

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)))))))))
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
2.0ms	phi1
2.0ms	phi2

Results

Accuracy	Segments	Branch
83.4%	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))))))))`
83.4%	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)))))))))`
78.9%	1	`lambda1`
78.9%	1	`phi1`
81.0%	2	`phi2`
83.4%	3	`delta`
83.8%	3	`theta`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes3.0ms (0%)

Memory

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

Counts

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

Outputs

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

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

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

Calls

1 calls:

2.0ms

theta

Results

Accuracy	Segments	Branch
83.7%	3	`theta`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes2.0ms (0%)

Memory

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

Outputs

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

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

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

Calls

1 calls:

2.0ms

theta

Results

Accuracy	Segments	Branch
83.6%	3	`theta`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes7.0ms (0.1%)

Memory

17.0MiB live, 17.0MiB 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)) #s(approx (* (sin delta) (sin theta)) (*.f64 theta (sin.f64 delta)))) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))

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

Outputs

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

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

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

Calls

4 calls:

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

Results

Accuracy	Segments	Branch
83.0%	3	`delta`
76.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))))))))`
78.0%	2	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
82.9%	3	`theta`

Compiler

Compiled 66 to 55 computations (16.7% saved)

regimes13.0ms (0.1%)

Memory

-19.7MiB live, 26.6MiB allocated; 4ms 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)) #s(approx (* (sin delta) (sin theta)) (*.f64 theta (sin.f64 delta)))) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))

Outputs

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

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

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
74.1%	1	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
74.1%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
74.1%	1	`lambda1`
75.7%	2	`phi1`
74.1%	1	`phi2`
75.9%	2	`theta`
77.6%	3	`delta`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes8.0ms (0.1%)

Memory

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

Accuracy

Total 0.0b remaining (0%)

Threshold costs 0b (0%)

Counts

1 → 1

Calls

Call 1

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

bsearch83.0ms (0.8%)

Memory

-15.8MiB live, 128.8MiB allocated; 9ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
48.0ms	3.259304566282539e+26	7.4348533684874345e+31
30.0ms	-1.5513815020865562e+32	-7.192868893343838e+31

Samples

67.0ms

224×

valid

Compiler

Compiled 2 078 to 1 089 computations (47.6% saved)

Precisions

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

ival-sin: 24.0ms (40.8% of total)

ival-cos: 22.0ms (37.4% of total)

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

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

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

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

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

adjust: 0.0ms (0% of total)

bsearch75.0ms (0.7%)

Memory

-15.1MiB live, 125.6MiB allocated; 5ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
29.0ms	6.091416055711899e-5	0.007103753208201298
40.0ms	-1.7169007182435047e+21	-43025763032447460.0

Samples

57.0ms

240×

valid

Compiler

Compiled 2 133 to 1 079 computations (49.4% saved)

Precisions

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

ival-sin: 21.0ms (42.8% of total)

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

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

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

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

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

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

adjust: 0.0ms (0% of total)

bsearch14.0ms (0.1%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	predicate-same
1×	narrow-enough

Steps

Time	Left	Right
11.0ms	9.533893378624203e-98	6.553488897517089e-96
1.0ms	-1.7169007182435047e+21	-43025763032447460.0

Samples

9.0ms

48×

valid

Compiler

Compiled 1 543 to 779 computations (49.5% saved)

Precisions

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

ival-sin: 3.0ms (39.9% of total)

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

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

ival-mult!: 1.0ms (13.3% 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)

bsearch96.0ms (0.9%)

Memory

17.6MiB live, 160.5MiB allocated; 6ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
39.0ms	1.644243706800375	956.7932105865293
51.0ms	-7.640521846959655e+46	-7.263731743620551e+31

Samples

77.0ms

288×

valid

Compiler

Compiled 2 502 to 1 237 computations (50.6% saved)

Precisions

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

ival-sin: 29.0ms (43.6% of total)

ival-cos: 21.0ms (31.6% of total)

ival-mult!: 8.0ms (12% of total)

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

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

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

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

adjust: 0.0ms (0% of total)

bsearch80.0ms (0.7%)

Memory

-5.0MiB live, 131.7MiB allocated; 14ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
38.0ms	1.5208107002718293e-33	7.253901688757272e-28
37.0ms	-4.8878231240838644e-217	-1.5034534349002782e-220

Samples

63.0ms

272×

valid

Compiler

Compiled 1 821 to 1 034 computations (43.2% saved)

Precisions

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

ival-sin: 18.0ms (36.7% of total)

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

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

ival-add!: 6.0ms (12.2% of total)

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

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

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

adjust: 0.0ms (0% of total)

derivations506.0ms (4.6%)

Memory

-28.9MiB live, 498.9MiB allocated; 85ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 1 646 to 170 computations (89.7% saved)

preprocess106.0ms (1%)

Memory: 34.2MiB live, 223.9MiB allocated; 13ms collecting garbage
Remove: (abs phi2)
Compiler: Compiled 6 650 to 1 456 computations (78.1% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze1.5s (13.3%)

sample2.6s (24%)

explain345.0ms (3.1%)

preprocess50.0ms (0.5%)

series47.0ms (0.4%)

rewrite317.0ms (2.9%)

eval98.0ms (0.9%)

prune99.0ms (0.9%)

series126.0ms (1.2%)

rewrite214.0ms (2%)

eval157.0ms (1.4%)

prune58.0ms (0.5%)

series121.0ms (1.1%)

rewrite326.0ms (3%)

eval194.0ms (1.8%)

prune80.0ms (0.7%)

series265.0ms (2.4%)

rewrite574.0ms (5.2%)

eval1.3s (11.8%)

prune120.0ms (1.1%)

regimes198.0ms (1.8%)

regimes291.0ms (2.7%)

regimes188.0ms (1.7%)

regimes185.0ms (1.7%)

regimes144.0ms (1.3%)

regimes123.0ms (1.1%)

regimes119.0ms (1.1%)

regimes81.0ms (0.7%)

regimes39.0ms (0.4%)

regimes27.0ms (0.2%)

regimes3.0ms (0%)

regimes2.0ms (0%)

regimes7.0ms (0.1%)

regimes13.0ms (0.1%)

regimes8.0ms (0.1%)

bsearch83.0ms (0.8%)

bsearch75.0ms (0.7%)

bsearch14.0ms (0.1%)

bsearch96.0ms (0.9%)

bsearch80.0ms (0.7%)

derivations506.0ms (4.6%)

preprocess106.0ms (1%)

end0.0ms (0%)

Profiling