Metrics for Destination given bearing on a great circle

start0.0ms (0%)

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

analyze1.3s (13%)

Memory

0.6MiB live, 2 297.4MiB allocated; 195ms collecting garbage

Algorithm

1×

Search

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

Compiler

Compiled 35 to 25 computations (28.6% saved)

sample3.8s (38.1%)

Memory

-251.6MiB live, 4 501.0MiB allocated; 2.1s collecting garbage

Samples

3.3s

8 256×

valid

Precisions

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

ival-cos: 1.7s (57.8% of total)

ival-sin: 764.0ms (25.8% of total)

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

ival-asin: 110.0ms (3.7% of total)

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

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

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

adjust: 2.0ms (0.1% of total)

Bogosity

explain374.0ms (3.7%)

Memory

42.2MiB live, 612.8MiB allocated; 40ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Underpredictions	Example	Subexpression
6	1	(-1.4042238045828237e-43 2.8218989754732526e+200 -1.0134912443252009e-223 -2.6287662889858635e+33 -2.0410279131539364e+107)	2	(-6.040714072696148e-213 -2.904450905576374e+103 -5.133251349862501e-136 -7.304509419918403e-37 -6.79314610612512e-14)	`(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))`
0	0	-	0	-	`(cos.f64 theta)`
0	0	-	0	-	`theta`
0	0	-	0	-	`(sin.f64 theta)`
0	0	-	0	-	`(.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))`
0	0	-	0	-	`(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))`
0	0	-	0	-	`delta`
0	0	-	0	-	`(sin.f64 phi1)`
0	0	-	0	-	`(*.f64 (sin.f64 phi1) (cos.f64 delta))`
0	0	-	0	-	`lambda1`
0	0	-	0	-	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
0	0	-	0	-	`(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))`
0	0	-	0	-	`(*.f64 (sin.f64 theta) (sin.f64 delta))`
0	0	-	0	-	`phi1`
0	0	-	0	-	`(*.f64 (cos.f64 phi1) (sin.f64 delta))`
0	0	-	0	-	`(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))`
0	0	-	0	-	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
0	0	-	0	-	`(sin.f64 delta)`
0	0	-	0	-	`(sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))`
0	0	-	0	-	`(cos.f64 delta)`
0	0	-	0	-	`(asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))`
0	0	-	0	-	`(cos.f64 phi1)`

Explanations

Click to see full explanations table

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

Confusion

	Predicted +	Predicted -
+	1	1
-	1	253

Precision

0.5

Recall

0.5

Confusion?

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

Precision?

0.6666666666666666

Recall?

1.0

Freqs

test

number	freq
0	254
1	2

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

170.0ms

512×

valid

Compiler

Compiled 431 to 73 computations (83.1% saved)

Precisions

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

ival-sin: 79.0ms (58% of total)

ival-cos: 30.0ms (22% of total)

ival-mult!: 13.0ms (9.5% of total)

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

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

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

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

adjust: 0.0ms (0% of total)

preprocess226.0ms (2.3%)

Memory

-18.5MiB live, 271.0MiB allocated; 34ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

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

Stop Event

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

Calls

Call 1

Inputs

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

Outputs

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

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

Symmetry

(abs phi2)

Compiler

Compiled 33 to 23 computations (30.3% saved)

eval0.0ms (0%)

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

prune1.0ms (0%)

Memory

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

Alt Table

Click to see full alt table

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

Status

Accuracy

Program

▶

99.8%

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

Compiler

Compiled 33 to 23 computations (30.3% saved)

series46.0ms (0.5%)

Memory

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

rewrite216.0ms (2.2%)

Memory

-21.3MiB live, 266.7MiB allocated; 20ms 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))

eval67.0ms (0.7%)

Memory: 11.0MiB live, 99.4MiB allocated; 14ms collecting garbage
Compiler: Compiled 12 738 to 1 974 computations (84.5% saved)

prune27.0ms (0.3%)

Memory

15.3MiB live, 60.3MiB allocated; 6ms collecting garbage

Pruning

17 alts after pruning (17 fresh and 0 done)

	Pruned	Kept	Total
New	270	17	287
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	271	17	288

Accuracy

99.9%

Counts

288 → 17

Alt Table

Click to see full alt table

Status	Accuracy	Program
	52.7%	(/.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)) (fma.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	99.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 2 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
▶	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))))))
	93.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (/.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)))))))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (/.f64 (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)))))))))))
	90.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
▶	93.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	94.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	82.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	90.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))))))) (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) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	78.3%	(+.f64 lambda1 (atan2.f64 #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)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 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.4%	#s(approx (+ 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))
▶	73.3%	#s(approx (+ 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 644 to 982 computations (40.3% saved)

series142.0ms (1.4%)

Memory

-17.9MiB live, 277.0MiB allocated; 38ms collecting garbage

Counts

53 → 361

Calls

Call 1

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

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

Calls

15 calls:

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

rewrite234.0ms (2.3%)

Memory

18.1MiB live, 351.8MiB allocated; 24ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1382	17950
0	1480	15830
0	8556	15401

Stop Event

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

Counts

414 → 604

Calls

Call 1

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

eval186.0ms (1.9%)

Memory: -4.7MiB live, 244.1MiB allocated; 77ms collecting garbage
Compiler: Compiled 49 283 to 4 562 computations (90.7% saved)

prune49.0ms (0.5%)

Memory

15.8MiB live, 109.4MiB allocated; 4ms collecting garbage

Pruning

26 alts after pruning (24 fresh and 2 done)

	Pruned	Kept	Total
New	770	16	786
Fresh	4	8	12
Picked	3	2	5
Done	0	0	0
Total	777	26	803

Accuracy

99.9%

Counts

803 → 26

Alt Table

Click to see full alt table

Status	Accuracy	Program
	52.7%	(/.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 (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 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 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 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 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 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))))
	47.4%	(/.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 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))) #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 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1))))) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1))))))))
	99.8%	(+.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 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)
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (fma.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
▶	93.9%	(+.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 (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1))))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (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 (sin.f64 phi1) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (/.f64 (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)))))))))))
	95.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (sin.f64 delta) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))
	90.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	90.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 #s(approx (+ phi1 delta) delta)))))))
	94.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
▶	82.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	82.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	90.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))))))) (cos.f64 delta))))
	77.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	88.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #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 (-.f64 (pow.f64 (cos.f64 delta) #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 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))
	82.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
▶	90.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos.f64 delta))))
	76.4%	(+.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)))))))
▶	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (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.4%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
	29.4%	#s(approx (+ 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)))))
▶	93.4%	#s(approx (+ 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) #s(approx ( (cos phi1) (sin delta)) (sin.f64 delta)))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
✓	73.3%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

Compiler

Compiled 3 151 to 1 542 computations (51.1% saved)

series350.0ms (3.5%)

Memory

-27.1MiB live, 492.6MiB allocated; 42ms collecting garbage

Counts

63 → 442

Calls

Call 1

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

Outputs
#s(approx (+ lambda1 (atan2 (* (sin delta) (* (cos phi1) (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 (* (sin delta) (* (cos phi1) (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 #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (/ (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (/ (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (* (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) lambda1) 1) lambda1) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (* (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) lambda1) 1) lambda1) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) lambda1) 1) #s(hole binary64 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
#s(approx (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) lambda1) 1) #s(hole binary64 (/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)))
#s(approx (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) lambda1) #s(hole binary64 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))))))
#s(approx (+ lambda1 (atan2 (* (sin delta) (* (cos phi1) (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 (* (sin delta) (* (cos phi1) (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 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (/ (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (* (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) lambda1) 1) lambda1) #s(hole binary64 lambda1))
#s(approx (* (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) lambda1) 1) lambda1) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) lambda1) 1) #s(hole binary64 1))
#s(approx (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) lambda1) 1) #s(hole binary64 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (sin delta) (* (cos phi1) (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 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (/ (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (* (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) lambda1) 1) lambda1) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))) lambda1)) 1)))))
#s(approx (atan2 (* (sin delta) (* (cos phi1) (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 (* (sin delta) (* (cos phi1) (sin theta))) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (sin theta)))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* -1/2 (* (pow phi1 2) (sin theta))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* (pow phi1 2) (+ (* -1/2 (sin theta)) (* 1/24 (* (pow phi1 2) (sin theta))))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* (pow phi1 2) (+ (* -1/2 (sin theta)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin theta))) (* 1/24 (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 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (/ (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (+ (* -1 (cos delta)) (* phi1 (- (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* -1/2 (* (cos theta) (sin delta)))) (* -1 (/ (- (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta)))))))
#s(approx (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 (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 delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (* (* (sin delta) (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) (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) (* -1 (* 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 (- (* -1 (* 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 (- (* -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)) (* (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 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 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) #s(hole binary64 (cos delta)))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (cos delta)) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))))) (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (+ (* -1 (cos delta)) (* phi1 (- (+ (* -2 (* (cos theta) (sin delta))) (+ (* -1 (/ (* (pow (cos theta) 3) (pow (sin delta) 3)) (pow (cos delta) 2))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* -1/2 (* (cos theta) (sin delta)))))) (+ (* -1 (/ (* (cos theta) (* (sin delta) (- (* (pow (cos theta) 2) (pow (sin delta) 2)) (* -1 (pow (cos delta) 2))))) (pow (cos delta) 2))) (+ (* -1 (/ (- (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos theta) (sin delta)))) (/ (* (cos theta) (* (sin delta) (- (* -1 (cos delta)) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta)))))) (cos delta))))))) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))))) (* (cos theta) (sin delta)))))))
#s(approx (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) #s(hole binary64 (pow (cos delta) 3)))
#s(approx (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi1 3) (- (* phi1 (+ (* -1 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* phi1 (- (+ (* -1 (+ (* -2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (+ (* -1 (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))) (* 1/2 (* (pow (cos theta) 3) (pow (sin delta) 3)))))) (* -1 (/ (pow (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 2) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (* -1 (/ (+ (* 1/2 (* (pow (cos theta) 6) (pow (sin delta) 6))) (+ (* 2 (* (pow (cos theta) 4) (* (pow (sin delta) 4) (- (pow (cos delta) 2) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))))) (* (pow (cos theta) 4) (* (pow (sin delta) 4) (- (pow (cos delta) 2) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2)))))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (pow (cos delta) 3))))
#s(approx (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))
#s(approx (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (- (* phi1 (- (* -1 (/ (+ (* 1/2 (* (pow (cos theta) 6) (pow (sin delta) 6))) (+ (* 2 (* (pow (cos theta) 4) (* (pow (sin delta) 4) (- (pow (cos delta) 2) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))))) (* (pow (cos theta) 4) (* (pow (sin delta) 4) (- (pow (cos delta) 2) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2)))))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* -1 (+ (* -2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (+ (* -1 (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))) (* 1/2 (* (pow (cos theta) 3) (pow (sin delta) 3)))))) (* -1 (/ (pow (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 2) (* (pow (cos theta) 3) (pow (sin delta) 3))))))) (* -1 (+ (* 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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (+ (* -1 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* -1 (* (cos theta) (* (sin delta) (+ (* 1/3 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (* (cos theta) (sin delta))))))) (+ (* -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))))))) (+ (* -1 (/ (* (+ (* -2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (+ (* -1 (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))) (* 1/2 (* (pow (cos theta) 3) (pow (sin 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 theta) 3) (pow (sin delta) 3)))) (* -1 (/ (* (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (- (* -1 (/ (+ (* 1/2 (* (pow (cos theta) 6) (pow (sin delta) 6))) (+ (* 2 (* (pow (cos theta) 4) (* (pow (sin delta) 4) (- (pow (cos delta) 2) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))))) (* (pow (cos theta) 4) (* (pow (sin delta) 4) (- (pow (cos delta) 2) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2)))))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* -1 (+ (* -2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (+ (* -1 (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))) (* 1/2 (* (pow (cos theta) 3) (pow (sin delta) 3)))))) (* -1 (/ (pow (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 2) (* (pow (cos theta) 3) (pow (sin delta) 3))))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))))))) (* -1 (/ (+ (* 1/2 (* (pow (cos theta) 6) (pow (sin delta) 6))) (+ (* 2 (* (pow (cos theta) 4) (* (pow (sin delta) 4) (- (pow (cos delta) 2) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))))) (* (pow (cos theta) 4) (* (pow (sin delta) 4) (- (pow (cos delta) 2) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2)))))))) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (+ (* -1 (+ (* -2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (+ (* -1 (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))) (* 1/2 (* (pow (cos theta) 3) (pow (sin delta) 3)))))) (* -1 (/ (pow (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 2) (* (pow (cos theta) 3) (pow (sin delta) 3))))))) (* -1 (+ (* 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 (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (- (* phi1 (- (* -1 (/ (- (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos theta) (sin delta)))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* -1/2 (* (cos theta) (sin delta)))))) (* -1 (cos delta)))) (* (cos theta) (sin delta))))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (cos delta) (- (* -1 (/ (- (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos theta) (sin delta)))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* -1/2 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))) (+ (* -1/2 (cos delta)) (* 1/6 (cos delta)))))) (* -1 (/ (- (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos theta) (sin delta))))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* -1/2 (* (cos theta) (sin delta)))))) (* -1 (cos delta)))) (* (cos theta) (sin delta))))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -1 (/ (- (pow (cos delta) 2) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos theta) (sin delta)))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* -1/2 (* (cos theta) (sin delta)))))) (* -1 (cos delta)))) (* (cos theta) (sin delta)))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (cos delta) (- (* -1 (/ (- (pow (cos delta) 2) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos theta) (sin delta)))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* -1/2 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))) (+ (* -1/2 (cos delta)) (* 1/6 (cos delta)))))) (* -1 (/ (- (pow (cos delta) 2) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos theta) (sin delta))))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* -1/2 (* (cos theta) (sin delta)))))) (* -1 (cos delta)))) (* (cos theta) (sin delta)))))
#s(approx (sin (+ delta phi1)) #s(hole binary64 (sin delta)))
#s(approx (sin (+ delta phi1)) #s(hole binary64 (+ (sin delta) (* phi1 (cos delta)))))
#s(approx (sin (+ delta phi1)) #s(hole binary64 (+ (sin delta) (* phi1 (+ (cos delta) (* -1/2 (* phi1 (sin delta))))))))
#s(approx (sin (+ delta phi1)) #s(hole binary64 (+ (sin delta) (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (sin delta)) (* -1/6 (* phi1 (cos delta))))))))))
#s(approx (+ delta phi1) #s(hole binary64 delta))
#s(approx (+ delta phi1) #s(hole binary64 (+ delta phi1)))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) #s(hole binary64 (pow (cos delta) 2)))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) #s(hole binary64 (+ (* phi1 (* (cos delta) (* (cos theta) (sin delta)))) (pow (cos delta) 2))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (- (* (pow (cos theta) 2) (pow (sin delta) 2)) (* -1 (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta))))) (pow (cos delta) 2))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (- (+ (* phi1 (- (* -1 (/ (* (cos delta) (- (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* (cos theta) (sin delta)))) (+ (* -2 (* (cos delta) (* (cos theta) (sin delta)))) (+ (* -1 (/ (pow (cos delta) 3) (* (cos theta) (sin delta)))) (* -1/2 (* (cos delta) (* (cos theta) (sin delta)))))))) (* (pow (cos theta) 2) (pow (sin delta) 2))) (* -1 (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta))))) (pow (cos delta) 2))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) #s(hole binary64 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* phi1 (- (* (pow (cos theta) 2) (pow (sin delta) 2)) (* -1 (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* phi1 (- (+ (* phi1 (- (* -1 (/ (* (cos delta) (- (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* (cos theta) (sin delta)))) (+ (* -2 (* (cos delta) (* (cos theta) (sin delta)))) (+ (* -1 (/ (pow (cos delta) 3) (* (cos theta) (sin delta)))) (* -1/2 (* (cos delta) (* (cos theta) (sin delta)))))))) (* (pow (cos theta) 2) (pow (sin delta) 2))) (* -1 (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* phi1 (- (+ (* phi1 (- (+ (* -1 (/ (* (cos delta) (- (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* (cos theta) (sin delta)))) (* phi1 (- (+ (* -2 (- (pow (cos delta) 2) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* -4 (pow (cos delta) 2)) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1 (/ (* (cos delta) (- (* -1 (/ (* (cos delta) (- (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* (cos theta) (sin delta)))) (+ (* -1 (/ (pow (cos delta) 3) (* (cos theta) (sin delta)))) (* -1/2 (* (cos delta) (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta)))) (+ (* -1/2 (pow (cos delta) 2)) (+ (* 1/6 (pow (cos delta) 2)) (pow (cos delta) 2))))))))) (+ (* -2 (* (cos delta) (* (cos theta) (sin delta)))) (+ (* -1 (/ (pow (cos delta) 3) (* (cos theta) (sin delta)))) (* -1/2 (* (cos delta) (* (cos theta) (sin delta)))))))) (* (pow (cos theta) 2) (pow (sin delta) 2))) (* -1 (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) #s(hole binary64 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (pow (cos delta) 2)) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (- (* phi1 (- (* -1 (/ (* (cos delta) (- (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* (cos theta) (sin delta)))) (+ (* -1 (/ (pow (cos delta) 3) (* (cos theta) (sin delta)))) (* -1/2 (* (cos delta) (* (cos theta) (sin delta))))))) (* -1 (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (cos delta) (- (* -1 (/ (* (cos delta) (- (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* (cos theta) (sin delta)))) (+ (* -1 (/ (pow (cos delta) 3) (* (cos theta) (sin delta)))) (* -1/2 (* (cos delta) (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta)))) (+ (* -1/2 (pow (cos delta) 2)) (* 1/6 (pow (cos delta) 2)))))) (* -1 (/ (* (cos delta) (- (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* (cos theta) (sin delta))))) (+ (* -1 (/ (pow (cos delta) 3) (* (cos theta) (sin delta)))) (* -1/2 (* (cos delta) (* (cos theta) (sin delta))))))) (* -1 (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* (cos phi1) (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 (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (- (cos delta) (/ (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#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 delta) (sin theta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#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) (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 theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* (cos phi1) (* (cos theta) (sin delta)))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) #s(hole binary64 (/ (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))))
#s(approx (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) #s(hole binary64 (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3)))))
#s(approx (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) #s(hole binary64 (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) #s(hole binary64 (/ (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (/ (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (sin (+ delta phi1)) #s(hole binary64 (sin (+ delta phi1))))
#s(approx (+ delta phi1) #s(hole binary64 phi1))
#s(approx (+ delta phi1) #s(hole binary64 (* phi1 (+ 1 (/ delta phi1)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) #s(hole binary64 (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2)))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) #s(hole binary64 (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)))))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) #s(hole binary64 (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (sin (- delta (* -1 phi1)))))
#s(approx (+ phi1 delta) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ delta phi1)) 1)))))
#s(approx (sin (+ delta phi1)) #s(hole binary64 (sin (- delta (* -1 phi1)))))
#s(approx (+ delta phi1) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ delta phi1)) 1)))))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (sin delta) #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 (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (- (+ 1 (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* -1/2 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (+ 1/2 (* -1 (pow (sin phi1) 2)))))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (- (+ 1 (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* -1/2 (pow (sin phi1) 2)) (+ (* delta (+ (* -1 (/ (* (cos phi1) (* (cos theta) (- (* -1 (pow (sin phi1) 2)) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* -1/2 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (sin phi1))) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (* 1/6 (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ 1/2 (* -1 (pow (sin phi1) 2)))))))) (pow (sin phi1) 2))))
#s(approx (* (* (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 (+ 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 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 (* (sin delta) (sin theta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (- (cos delta) (* (+ (* (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 (* -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 (- (* -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)) (* (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)) (* (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 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 (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) #s(hole binary64 (/ (- 1 (pow (sin phi1) 6)) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) #s(hole binary64 (- (+ (* delta (- (/ (* (pow (sin phi1) 3) (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (* -1 (/ (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) #s(hole binary64 (- (+ (* delta (- (+ (* delta (- (+ (* -1 (/ (pow (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) 2) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (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))))) (+ (* -1 (/ (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1))))) (- (/ (* (pow (sin phi1) 3) (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (* -1 (/ (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (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))))) (+ (* 3/2 (/ 1 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (* 2 (/ (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* -1 (pow (sin phi1) 2)) (* 2 (* (pow (sin phi1) 2) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (+ 1 (+ (* -4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2)))) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)) (/ (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))))) (/ (* (pow (sin phi1) 3) (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (* -1 (/ (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) #s(hole binary64 (- (+ (* delta (- (+ (* delta (- (+ (* -1 (/ (pow (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) 2) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (* delta (- (+ (* -1 (/ (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 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))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (- (+ (* 2 (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (* -1 (pow (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) 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) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (+ (* 1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))) (* (sin phi1) (+ (* 1/3 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (cos phi1) (* (cos theta) (sin phi1))))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))) (+ (* -1 (/ (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1))))) (- (+ (* -1 (/ (pow (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) 2) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (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))))) (+ (* -1 (/ (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1))))) (- (/ (* (pow (sin phi1) 3) (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (* -1 (/ (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (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))))) (+ (* 3/2 (/ 1 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (* 2 (/ (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* -1 (pow (sin phi1) 2)) (* 2 (* (pow (sin phi1) 2) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (+ 1 (+ (* -4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2)))) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)) (/ (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (* -1 (/ (* (+ (* -2 (/ (* (cos phi1) (* (cos theta) (- (* 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) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (sin phi1))) (+ (* -1 (/ (* (cos phi1) (* (cos theta) (- (* -1 (pow (sin phi1) 2)) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (sin phi1))) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* 1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* 2 (* (cos phi1) (* (cos theta) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (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)) (* 2 (* (pow (sin phi1) 2) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (+ 1 (+ (* -4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2)))) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))) (- (/ (* (pow (sin phi1) 3) (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (* -1 (/ (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (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)))))))) (/ (* (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)))))) (+ (* -1 (/ (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1))))) (- (/ (* (pow (sin phi1) 3) (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (* -1 (/ (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (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))))) (+ (* 3/2 (/ 1 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (* 2 (/ (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* -1 (pow (sin phi1) 2)) (* 2 (* (pow (sin phi1) 2) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (+ 1 (+ (* -4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2)))) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)) (/ (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))))) (/ (* (pow (sin phi1) 3) (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (* -1 (/ (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) #s(hole binary64 (- 1 (pow (sin phi1) 6))))
#s(approx (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) #s(hole binary64 (- (+ 1 (* delta (* (pow (sin phi1) 3) (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (pow (sin phi1) 6))))
#s(approx (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) #s(hole binary64 (- (+ 1 (* delta (+ (* delta (- (+ (* -1 (pow (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) 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)))))))) (+ 3/2 (+ (* 2 (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (pow (sin phi1) 4) (- (* -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)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))))) (pow (sin phi1) 6))))
#s(approx (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) #s(hole binary64 (- (+ 1 (* delta (+ (* delta (- (+ (* -1 (pow (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) 2)) (+ (* delta (+ (* -1 (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 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)))))))) (+ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (+ (* 1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))) (* (sin phi1) (+ (* 1/3 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (cos phi1) (* (cos theta) (sin phi1))))))))) (/ (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (- (+ (* 2 (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (* -1 (pow (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) 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))))) (* (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))))))))) (+ 3/2 (+ (* 2 (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (pow (sin phi1) 4) (- (* -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)))) (* -1 (* (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 (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) #s(hole binary64 (pow (sin phi1) 6)))
#s(approx (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) #s(hole binary64 (+ (* -1 (* delta (* (pow (sin phi1) 3) (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (pow (sin phi1) 6))))
#s(approx (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) #s(hole binary64 (+ (* delta (- (* delta (- (+ (* 2 (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (* -1 (pow (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) 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)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (pow (sin phi1) 6))))
#s(approx (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) #s(hole binary64 (+ (* delta (- (* delta (- (+ (* -1 (* delta (+ (* -1 (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 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)))))))) (+ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (+ (* 1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))) (* (sin phi1) (+ (* 1/3 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (cos phi1) (* (cos theta) (sin phi1))))))))) (/ (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (- (+ (* 2 (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (* -1 (pow (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) 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 (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (+ (* -1 (pow (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) 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)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (pow (sin phi1) 6))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) #s(hole binary64 (+ (* delta (- (* delta (- (* -1 (pow (sin phi1) 2)) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* -1/2 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) #s(hole binary64 (+ (* delta (- (* delta (- (+ (* -1 (* delta (+ (* -1 (/ (* (cos phi1) (* (cos theta) (- (* -1 (pow (sin phi1) 2)) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* -1/2 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (sin phi1))) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (* 1/6 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (* -1 (pow (sin phi1) 2))) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* -1/2 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (sin phi1)))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (+ (sin phi1) (* delta (- (* delta (- (* -1 (sin phi1)) (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1))) (+ (* -1/2 (sin phi1)) (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1)))))) (* -1 (* (cos phi1) (cos theta))))))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (+ (sin phi1) (* delta (- (* delta (- (+ (* -1 (sin phi1)) (* -1 (* delta (+ (* -1 (/ (* (cos phi1) (* (cos theta) (- (* -1 (sin phi1)) (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1))) (+ (* -1/2 (sin phi1)) (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1))))))) (sin phi1))) (+ (* -1/2 (* (cos phi1) (cos theta))) (* 1/6 (* (cos phi1) (cos theta)))))))) (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1))) (+ (* -1/2 (sin phi1)) (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1)))))) (* -1 (* (cos phi1) (cos theta))))))))
#s(approx (sin (+ delta phi1)) #s(hole binary64 (sin phi1)))
#s(approx (sin (+ delta phi1)) #s(hole binary64 (+ (sin phi1) (* delta (cos phi1)))))
#s(approx (sin (+ delta phi1)) #s(hole binary64 (+ (sin phi1) (* delta (+ (cos phi1) (* -1/2 (* delta (sin phi1))))))))
#s(approx (sin (+ delta phi1)) #s(hole binary64 (+ (sin phi1) (* delta (+ (cos phi1) (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (cos phi1))))))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) #s(hole binary64 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) #s(hole binary64 (+ 1 (+ (* -1 (* delta (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1))))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) #s(hole binary64 (+ 1 (+ (* delta (- (* delta (- (+ (* -1 (pow (sin phi1) 2)) (* 2 (* (pow (sin phi1) 2) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (+ 1 (+ (* -4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2)))) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1))))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) #s(hole binary64 (+ 1 (+ (* delta (- (* delta (- (+ (* -1 (* delta (+ (* -2 (/ (* (cos phi1) (* (cos theta) (- (* 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) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (sin phi1))) (+ (* -1 (/ (* (cos phi1) (* (cos theta) (- (* -1 (pow (sin phi1) 2)) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (sin phi1))) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* 1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* 2 (* (cos phi1) (* (cos theta) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (cos phi1) (* (cos theta) (sin phi1)))))))))))) (+ (* -1 (pow (sin phi1) 2)) (* 2 (* (pow (sin phi1) 2) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (+ 1 (+ (* -4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2)))) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1))))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) #s(hole binary64 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) #s(hole binary64 (+ (* -1 (* delta (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1))))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) #s(hole binary64 (+ (* delta (- (* delta (- (+ (* -1 (pow (sin phi1) 2)) (* 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 (cos phi1) 2) (pow (cos theta) 2))) (+ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))) (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1))))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) #s(hole binary64 (+ (* delta (- (* delta (- (+ (* -1 (* delta (+ (* -2 (/ (* (cos phi1) (* (cos theta) (- (* 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) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (sin phi1))) (+ (* -1 (/ (* (cos phi1) (* (cos theta) (- (* -1 (pow (sin phi1) 2)) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (sin phi1))) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* 1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* 2 (* (cos phi1) (* (cos theta) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (cos phi1) (* (cos theta) (sin phi1)))))))))))) (+ (* -1 (pow (sin phi1) 2)) (* 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 (cos phi1) 2) (pow (cos theta) 2))) (+ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))) (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1))))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) #s(hole binary64 (+ (* delta (- (* delta (- (* -1 (pow (sin phi1) 2)) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) #s(hole binary64 (+ (* delta (- (* delta (- (+ (* -1 (* delta (+ (* -1 (/ (* (cos phi1) (* (cos theta) (- (* -1 (pow (sin phi1) 2)) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (sin phi1))) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (* 1/6 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (* -1 (pow (sin phi1) 2))) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (sin delta) #s(hole binary64 (sin delta)))
#s(approx (cos delta) #s(hole binary64 (cos delta)))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (+ phi1 delta) #s(hole binary64 (* delta (+ 1 (/ phi1 delta)))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (pow (cos delta) 3) #s(hole binary64 (pow (cos delta) 3)))
#s(approx (+ delta phi1) #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 (+ delta phi1)) #s(hole binary64 (sin (- phi1 (* -1 delta)))))
#s(approx (+ delta phi1) #s(hole binary64 (* -1 (* delta (- (* -1 (/ phi1 delta)) 1)))))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (cos phi1))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* -1/6 (* (pow theta 2) (cos phi1)))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* (pow theta 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow theta 2) (cos phi1)))))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* (pow theta 2) (+ (* -1/6 (cos phi1)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#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 (* (* (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) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (- (cos delta) (/ (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (/ (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (+ (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow theta 2) (- (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/3 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (/ (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (+ (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow theta 2) (- (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (- (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/720 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (* -1/3 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* 2/45 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* -1/3 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (/ (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (* (sin 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 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 (* (sin delta) (sin theta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (- (cos delta) (* (+ (* (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) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (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))))))) (* (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))))))
#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 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) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) #s(hole binary64 (/ (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))) (+ (/ (* (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))) (/ (pow (cos delta) 3) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (/ (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin 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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (+ (/ (* (- (+ (* -1/3 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (/ (* (pow (sin phi1) 2) (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* -1/24 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (/ (* (cos phi1) (* (sin delta) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (- (* (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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4)))))) (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)) (+ (/ (* (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (- (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))) (+ (/ (* (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (/ (* (pow (sin phi1) 3) (+ (* -1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (+ (* 2 (* (pow (cos phi1) 4) (* (pow (sin delta) 4) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4))) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))))) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (+ (/ (* (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))) (/ (pow (cos delta) 3) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (* (pow theta 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 (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (/ (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (/ (* (pow (sin phi1) 3) (+ (* -1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (+ (* 2 (* (pow (cos phi1) 4) (* (pow (sin delta) 4) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4))) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (/ (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin 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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (/ (* (pow (sin phi1) 3) (* (+ (* -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/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))) (* 1/360 (* (cos phi1) (* (sin delta) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (+ (/ (* (- (+ (* -1/3 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (/ (* (pow (sin phi1) 2) (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* -1/24 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (/ (* (cos phi1) (* (sin delta) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (- (* (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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4)))))) (- (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))) (+ (/ (* (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (+ (/ (* (- (+ (* 2/45 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (/ (* (pow (sin phi1) 2) (+ (* -2/3 (* (pow (cos phi1) 4) (pow (sin delta) 4))) (* 4/45 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/720 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (* -1/3 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (sin phi1) 2) (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (+ (/ (* (cos phi1) (* (sin delta) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (- (* (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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4)))))) (- (* (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)))) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4)))))))) (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)) (+ (/ (* (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (- (+ (/ (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin 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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (+ (/ (* (- (+ (* -1/3 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (/ (* (pow (sin phi1) 2) (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* -1/24 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (/ (* (cos phi1) (* (sin delta) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (- (* (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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4)))))) (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)) (+ (/ (* (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (- (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))) (+ (/ (* (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (/ (* (pow (sin phi1) 3) (+ (* -1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (+ (* 2 (* (pow (cos phi1) 4) (* (pow (sin delta) 4) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4))) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (/ (* (pow (sin phi1) 3) (+ (* -2/3 (* (pow (cos phi1) 4) (* (pow (sin delta) 4) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* 2/45 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (+ (* (+ (* -2/3 (* (pow (cos phi1) 4) (pow (sin delta) 4))) (* 4/45 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4))))))))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))))) (+ (/ (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin 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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (+ (/ (* (- (+ (* -1/3 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (/ (* (pow (sin phi1) 2) (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* -1/24 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (/ (* (cos phi1) (* (sin delta) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (- (* (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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4)))))) (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)) (+ (/ (* (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (- (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))) (+ (/ (* (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (/ (* (pow (sin phi1) 3) (+ (* -1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (+ (* 2 (* (pow (cos phi1) 4) (* (pow (sin delta) 4) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4))) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))))) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (+ (/ (* (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))) (/ (pow (cos delta) 3) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))))
#s(approx (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) #s(hole binary64 (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) #s(hole binary64 (- (+ (* (pow theta 2) (- (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (cos delta) 3)) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (/ (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin 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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))) (/ (* (pow (sin phi1) 3) (+ (* -1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (+ (* 2 (* (pow (cos phi1) 4) (* (pow (sin delta) 4) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4))) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (cos delta) 3)) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (* (pow theta 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 (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (/ (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (/ (* (pow (sin phi1) 3) (+ (* -1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (+ (* 2 (* (pow (cos phi1) 4) (* (pow (sin delta) 4) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4))) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (/ (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin 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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (/ (* (pow (sin phi1) 3) (* (+ (* -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/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))) (* 1/360 (* (cos phi1) (* (sin delta) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (/ (* (pow (sin phi1) 3) (+ (* -2/3 (* (pow (cos phi1) 4) (* (pow (sin delta) 4) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* 2/45 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (+ (* (+ (* -2/3 (* (pow (cos phi1) 4) (pow (sin delta) 4))) (* 4/45 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4))))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (/ (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin 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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (/ (* (pow (sin phi1) 3) (+ (* -1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (+ (* 2 (* (pow (cos phi1) 4) (* (pow (sin delta) 4) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4))) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (cos delta) 3)) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) #s(hole binary64 (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))
#s(approx (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) #s(hole binary64 (+ (* (pow theta 2) (- (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (/ (* (pow (sin phi1) 3) (+ (* -1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (+ (* 2 (* (pow (cos phi1) 4) (* (pow (sin delta) 4) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4))) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (/ (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin 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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (/ (* (pow (sin phi1) 3) (+ (* -2/3 (* (pow (cos phi1) 4) (* (pow (sin delta) 4) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* 2/45 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (+ (* (+ (* -2/3 (* (pow (cos phi1) 4) (pow (sin delta) 4))) (* 4/45 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4))))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 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) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (/ (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (/ (* (pow (sin phi1) 3) (+ (* -1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (+ (* 2 (* (pow (cos phi1) 4) (* (pow (sin delta) 4) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4))) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (/ (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin 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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (/ (* (pow (sin phi1) 3) (* (+ (* -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/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))) (* 1/360 (* (cos phi1) (* (sin delta) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))))) (/ (* (pow (sin phi1) 3) (+ (* -1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (+ (* 2 (* (pow (cos phi1) 4) (* (pow (sin delta) 4) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4))) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (/ (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin 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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) #s(hole binary64 (/ (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) #s(hole binary64 (+ (* (pow theta 2) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (/ (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (* -1/3 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (/ (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (* -1/3 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (- (* 2/45 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/720 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (* -1/3 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (/ (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (/ (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (/ (* (pow (cos phi1) 2) (pow (sin delta) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (/ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (/ (* (pow (cos phi1) 2) (pow (sin delta) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (* -1/3 (/ (* (pow (cos phi1) 2) (pow (sin delta) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (pow (sin delta) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (/ (* (pow (cos phi1) 2) (pow (sin delta) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (/ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (/ (* (pow (cos phi1) 2) (pow (sin delta) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (* -1/3 (/ (* (pow (cos phi1) 2) (pow (sin delta) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (- (* 2/45 (/ (* (pow (cos phi1) 2) (pow (sin delta) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (pow (sin delta) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/720 (/ (* (cos phi1) (* (sin delta) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (* -1/3 (/ (* (pow (cos phi1) 2) (pow (sin delta) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (pow (sin delta) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (pow (sin delta) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (/ (* (pow (cos phi1) 2) (pow (sin delta) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (/ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (/ (* (pow (cos phi1) 2) (pow (sin delta) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) #s(hole binary64 (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* (pow theta 2) (- (+ (* -1/3 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (/ (* (pow (sin phi1) 2) (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* -1/24 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (/ (* (cos phi1) (* (sin delta) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (- (* (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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))))))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* (pow theta 2) (- (+ (* -1/3 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow theta 2) (- (+ (* 2/45 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (/ (* (pow (sin phi1) 2) (+ (* -2/3 (* (pow (cos phi1) 4) (pow (sin delta) 4))) (* 4/45 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/720 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (* -1/3 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (sin phi1) 2) (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (+ (/ (* (cos phi1) (* (sin delta) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (- (* (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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4)))))) (- (* (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)))) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))))))))) (/ (* (pow (sin phi1) 2) (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* -1/24 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (/ (* (cos phi1) (* (sin delta) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (- (* (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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))))))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) #s(hole binary64 (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* (pow theta 2) (- (+ (* -1/3 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (/ (* (pow (sin phi1) 2) (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* -1/24 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (/ (* (cos phi1) (* (sin delta) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (- (* (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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))))))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* (pow theta 2) (- (+ (* -1/3 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow theta 2) (- (+ (* 2/45 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (/ (* (pow (sin phi1) 2) (+ (* -2/3 (* (pow (cos phi1) 4) (pow (sin delta) 4))) (* 4/45 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/720 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (* -1/3 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (sin phi1) 2) (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (+ (/ (* (cos phi1) (* (sin delta) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (- (* (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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4)))))) (- (* (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)))) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))))))))) (/ (* (pow (sin phi1) 2) (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* -1/24 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (/ (* (cos phi1) (* (sin delta) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (- (* (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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))))))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) #s(hole binary64 (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) #s(hole binary64 (+ (* (pow theta 2) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (* -1/3 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (* -1/3 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (- (* 2/45 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/720 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (* -1/3 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (+ (* -1/24 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (sin theta) #s(hole binary64 (sin theta)))
#s(approx (cos theta) #s(hole binary64 (cos theta)))

Calls

15 calls:

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

rewrite398.0ms (4%)

Memory

43.2MiB live, 420.0MiB allocated; 50ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	2099	59802
0	2194	49818
0	9150	48510

Stop Event

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

Counts

505 → 570

Calls

Call 1

Inputs
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (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)))))))))
lambda1
(atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta)))
(sin.f64 delta)
delta
(*.f64 (cos.f64 phi1) (sin.f64 theta))
(cos.f64 phi1)
phi1
(sin.f64 theta)
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)))))))
(cos.f64 delta)
(.f64 (sin.f64 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)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos.f64 delta))))
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos.f64 delta)))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos.f64 delta))
(+.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)))))))
(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 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))
#s(approx (cos delta) #s(literal 1 binary64))
#s(literal 1 binary64)
(.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (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)
#s(approx (+ 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) #s(approx ( (cos phi1) (sin delta)) (sin.f64 delta)))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
(.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) #s(approx ( (cos phi1) (sin delta)) (sin.f64 delta)))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1)
(+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64))
(/.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) #s(approx (* (cos phi1) (sin delta)) (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) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)))) (sin.f64 phi1))))
(.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)))) (sin.f64 phi1)))
(.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)))) (sin.f64 phi1))
(fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) #s(approx ( (cos phi1) (sin delta)) (sin.f64 delta))))
(.f64 (cos.f64 theta) #s(approx ( (cos phi1) (sin delta)) (sin.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 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (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 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1))))))
(-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 3 binary64)))
(pow.f64 (cos.f64 delta) #s(literal 3 binary64))
#s(literal 3 binary64)
(pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 3 binary64))
(.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1)))
(sin.f64 (+.f64 delta phi1))
(+.f64 delta phi1)
(fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))))
(fma.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1))))
(.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))
#s(approx (+ lambda1 (atan2 (* (sin delta) (* (cos phi1) (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 (* (sin delta) (* (cos phi1) (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 #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (/ (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (/ (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (* (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) lambda1) 1) lambda1) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (* (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) lambda1) 1) lambda1) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) lambda1) 1) #s(hole binary64 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
#s(approx (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) lambda1) 1) #s(hole binary64 (/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)))
#s(approx (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) lambda1) #s(hole binary64 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))))))
#s(approx (+ lambda1 (atan2 (* (sin delta) (* (cos phi1) (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 (* (sin delta) (* (cos phi1) (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 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (/ (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (* (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) lambda1) 1) lambda1) #s(hole binary64 lambda1))
#s(approx (* (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) lambda1) 1) lambda1) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) lambda1) 1) #s(hole binary64 1))
#s(approx (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) lambda1) 1) #s(hole binary64 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (sin delta) (* (cos phi1) (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 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (/ (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (* (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) lambda1) 1) lambda1) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))) lambda1)) 1)))))
#s(approx (atan2 (* (sin delta) (* (cos phi1) (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 (* (sin delta) (* (cos phi1) (sin theta))) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (sin theta)))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* -1/2 (* (pow phi1 2) (sin theta))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* (pow phi1 2) (+ (* -1/2 (sin theta)) (* 1/24 (* (pow phi1 2) (sin theta))))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (+ (sin theta) (* (pow phi1 2) (+ (* -1/2 (sin theta)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin theta))) (* 1/24 (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 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (/ (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (+ (* -1 (cos delta)) (* phi1 (- (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* -1/2 (* (cos theta) (sin delta)))) (* -1 (/ (- (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta)))))))
#s(approx (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 (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 delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (* (* (sin delta) (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) (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) (* -1 (* 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 (- (* -1 (* 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 (- (* -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)) (* (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 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 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) #s(hole binary64 (cos delta)))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (cos delta)) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))))) (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (+ (* -1 (cos delta)) (* phi1 (- (+ (* -2 (* (cos theta) (sin delta))) (+ (* -1 (/ (* (pow (cos theta) 3) (pow (sin delta) 3)) (pow (cos delta) 2))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* -1/2 (* (cos theta) (sin delta)))))) (+ (* -1 (/ (* (cos theta) (* (sin delta) (- (* (pow (cos theta) 2) (pow (sin delta) 2)) (* -1 (pow (cos delta) 2))))) (pow (cos delta) 2))) (+ (* -1 (/ (- (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos theta) (sin delta)))) (/ (* (cos theta) (* (sin delta) (- (* -1 (cos delta)) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta)))))) (cos delta))))))) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))))) (* (cos theta) (sin delta)))))))
#s(approx (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) #s(hole binary64 (pow (cos delta) 3)))
#s(approx (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi1 3) (- (* phi1 (+ (* -1 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* phi1 (- (+ (* -1 (+ (* -2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (+ (* -1 (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))) (* 1/2 (* (pow (cos theta) 3) (pow (sin delta) 3)))))) (* -1 (/ (pow (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 2) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (* -1 (/ (+ (* 1/2 (* (pow (cos theta) 6) (pow (sin delta) 6))) (+ (* 2 (* (pow (cos theta) 4) (* (pow (sin delta) 4) (- (pow (cos delta) 2) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))))) (* (pow (cos theta) 4) (* (pow (sin delta) 4) (- (pow (cos delta) 2) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2)))))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (pow (cos delta) 3))))
#s(approx (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))
#s(approx (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (- (* phi1 (- (* -1 (/ (+ (* 1/2 (* (pow (cos theta) 6) (pow (sin delta) 6))) (+ (* 2 (* (pow (cos theta) 4) (* (pow (sin delta) 4) (- (pow (cos delta) 2) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))))) (* (pow (cos theta) 4) (* (pow (sin delta) 4) (- (pow (cos delta) 2) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2)))))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* -1 (+ (* -2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (+ (* -1 (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))) (* 1/2 (* (pow (cos theta) 3) (pow (sin delta) 3)))))) (* -1 (/ (pow (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 2) (* (pow (cos theta) 3) (pow (sin delta) 3))))))) (* -1 (+ (* 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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (+ (* -1 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* -1 (* (cos theta) (* (sin delta) (+ (* 1/3 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (* (cos theta) (sin delta))))))) (+ (* -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))))))) (+ (* -1 (/ (* (+ (* -2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (+ (* -1 (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))) (* 1/2 (* (pow (cos theta) 3) (pow (sin 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 theta) 3) (pow (sin delta) 3)))) (* -1 (/ (* (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (- (* -1 (/ (+ (* 1/2 (* (pow (cos theta) 6) (pow (sin delta) 6))) (+ (* 2 (* (pow (cos theta) 4) (* (pow (sin delta) 4) (- (pow (cos delta) 2) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))))) (* (pow (cos theta) 4) (* (pow (sin delta) 4) (- (pow (cos delta) 2) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2)))))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* -1 (+ (* -2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (+ (* -1 (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))) (* 1/2 (* (pow (cos theta) 3) (pow (sin delta) 3)))))) (* -1 (/ (pow (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 2) (* (pow (cos theta) 3) (pow (sin delta) 3))))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))))))) (* -1 (/ (+ (* 1/2 (* (pow (cos theta) 6) (pow (sin delta) 6))) (+ (* 2 (* (pow (cos theta) 4) (* (pow (sin delta) 4) (- (pow (cos delta) 2) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))))) (* (pow (cos theta) 4) (* (pow (sin delta) 4) (- (pow (cos delta) 2) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2)))))))) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (+ (* -1 (+ (* -2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (+ (* -1 (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))) (* 1/2 (* (pow (cos theta) 3) (pow (sin delta) 3)))))) (* -1 (/ (pow (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 2) (* (pow (cos theta) 3) (pow (sin delta) 3))))))) (* -1 (+ (* 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 (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (- (* phi1 (- (* -1 (/ (- (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos theta) (sin delta)))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* -1/2 (* (cos theta) (sin delta)))))) (* -1 (cos delta)))) (* (cos theta) (sin delta))))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (cos delta) (- (* -1 (/ (- (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos theta) (sin delta)))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* -1/2 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))) (+ (* -1/2 (cos delta)) (* 1/6 (cos delta)))))) (* -1 (/ (- (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos theta) (sin delta))))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* -1/2 (* (cos theta) (sin delta)))))) (* -1 (cos delta)))) (* (cos theta) (sin delta))))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -1 (/ (- (pow (cos delta) 2) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos theta) (sin delta)))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* -1/2 (* (cos theta) (sin delta)))))) (* -1 (cos delta)))) (* (cos theta) (sin delta)))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (cos delta) (- (* -1 (/ (- (pow (cos delta) 2) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos theta) (sin delta)))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* -1/2 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))) (+ (* -1/2 (cos delta)) (* 1/6 (cos delta)))))) (* -1 (/ (- (pow (cos delta) 2) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos theta) (sin delta))))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* -1/2 (* (cos theta) (sin delta)))))) (* -1 (cos delta)))) (* (cos theta) (sin delta)))))
#s(approx (sin (+ delta phi1)) #s(hole binary64 (sin delta)))
#s(approx (sin (+ delta phi1)) #s(hole binary64 (+ (sin delta) (* phi1 (cos delta)))))
#s(approx (sin (+ delta phi1)) #s(hole binary64 (+ (sin delta) (* phi1 (+ (cos delta) (* -1/2 (* phi1 (sin delta))))))))
#s(approx (sin (+ delta phi1)) #s(hole binary64 (+ (sin delta) (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (sin delta)) (* -1/6 (* phi1 (cos delta))))))))))
#s(approx (+ delta phi1) #s(hole binary64 delta))
#s(approx (+ delta phi1) #s(hole binary64 (+ delta phi1)))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) #s(hole binary64 (pow (cos delta) 2)))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) #s(hole binary64 (+ (* phi1 (* (cos delta) (* (cos theta) (sin delta)))) (pow (cos delta) 2))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (- (* (pow (cos theta) 2) (pow (sin delta) 2)) (* -1 (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta))))) (pow (cos delta) 2))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (- (+ (* phi1 (- (* -1 (/ (* (cos delta) (- (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* (cos theta) (sin delta)))) (+ (* -2 (* (cos delta) (* (cos theta) (sin delta)))) (+ (* -1 (/ (pow (cos delta) 3) (* (cos theta) (sin delta)))) (* -1/2 (* (cos delta) (* (cos theta) (sin delta)))))))) (* (pow (cos theta) 2) (pow (sin delta) 2))) (* -1 (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta))))) (pow (cos delta) 2))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) #s(hole binary64 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* phi1 (- (* (pow (cos theta) 2) (pow (sin delta) 2)) (* -1 (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* phi1 (- (+ (* phi1 (- (* -1 (/ (* (cos delta) (- (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* (cos theta) (sin delta)))) (+ (* -2 (* (cos delta) (* (cos theta) (sin delta)))) (+ (* -1 (/ (pow (cos delta) 3) (* (cos theta) (sin delta)))) (* -1/2 (* (cos delta) (* (cos theta) (sin delta)))))))) (* (pow (cos theta) 2) (pow (sin delta) 2))) (* -1 (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* phi1 (- (+ (* phi1 (- (+ (* -1 (/ (* (cos delta) (- (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* (cos theta) (sin delta)))) (* phi1 (- (+ (* -2 (- (pow (cos delta) 2) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* -4 (pow (cos delta) 2)) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1 (/ (* (cos delta) (- (* -1 (/ (* (cos delta) (- (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* (cos theta) (sin delta)))) (+ (* -1 (/ (pow (cos delta) 3) (* (cos theta) (sin delta)))) (* -1/2 (* (cos delta) (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta)))) (+ (* -1/2 (pow (cos delta) 2)) (+ (* 1/6 (pow (cos delta) 2)) (pow (cos delta) 2))))))))) (+ (* -2 (* (cos delta) (* (cos theta) (sin delta)))) (+ (* -1 (/ (pow (cos delta) 3) (* (cos theta) (sin delta)))) (* -1/2 (* (cos delta) (* (cos theta) (sin delta)))))))) (* (pow (cos theta) 2) (pow (sin delta) 2))) (* -1 (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) #s(hole binary64 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (pow (cos delta) 2)) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (- (* phi1 (- (* -1 (/ (* (cos delta) (- (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* (cos theta) (sin delta)))) (+ (* -1 (/ (pow (cos delta) 3) (* (cos theta) (sin delta)))) (* -1/2 (* (cos delta) (* (cos theta) (sin delta))))))) (* -1 (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) #s(hole binary64 (* phi1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (cos delta) (- (* -1 (/ (* (cos delta) (- (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* (cos theta) (sin delta)))) (+ (* -1 (/ (pow (cos delta) 3) (* (cos theta) (sin delta)))) (* -1/2 (* (cos delta) (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta)))) (+ (* -1/2 (pow (cos delta) 2)) (* 1/6 (pow (cos delta) 2)))))) (* -1 (/ (* (cos delta) (- (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* (cos theta) (sin delta))))) (+ (* -1 (/ (pow (cos delta) 3) (* (cos theta) (sin delta)))) (* -1/2 (* (cos delta) (* (cos theta) (sin delta))))))) (* -1 (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* (cos phi1) (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 (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (- (cos delta) (/ (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#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 delta) (sin theta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#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) (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 theta) (* (cos phi1) (sin delta))) #s(hole binary64 (* (cos phi1) (* (cos theta) (sin delta)))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) #s(hole binary64 (/ (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))))
#s(approx (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) #s(hole binary64 (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3)))))
#s(approx (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) #s(hole binary64 (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) #s(hole binary64 (/ (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (/ (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (sin (+ delta phi1)) #s(hole binary64 (sin (+ delta phi1))))
#s(approx (+ delta phi1) #s(hole binary64 phi1))
#s(approx (+ delta phi1) #s(hole binary64 (* phi1 (+ 1 (/ delta phi1)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) #s(hole binary64 (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2)))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) #s(hole binary64 (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)))))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) #s(hole binary64 (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (sin (+ phi1 delta)) #s(hole binary64 (sin (- delta (* -1 phi1)))))
#s(approx (+ phi1 delta) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ delta phi1)) 1)))))
#s(approx (sin (+ delta phi1)) #s(hole binary64 (sin (- delta (* -1 phi1)))))
#s(approx (+ delta phi1) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ delta phi1)) 1)))))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (sin delta) #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 (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (- 1 (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (- (+ 1 (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* -1/2 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (+ 1/2 (* -1 (pow (sin phi1) 2)))))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (- (+ 1 (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* -1/2 (pow (sin phi1) 2)) (+ (* delta (+ (* -1 (/ (* (cos phi1) (* (cos theta) (- (* -1 (pow (sin phi1) 2)) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* -1/2 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (sin phi1))) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (* 1/6 (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ 1/2 (* -1 (pow (sin phi1) 2)))))))) (pow (sin phi1) 2))))
#s(approx (* (* (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 (+ 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 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 (* (sin delta) (sin theta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (- (cos delta) (* (+ (* (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 (* -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 (- (* -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)) (* (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)) (* (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 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 (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) #s(hole binary64 (/ (- 1 (pow (sin phi1) 6)) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) #s(hole binary64 (- (+ (* delta (- (/ (* (pow (sin phi1) 3) (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (* -1 (/ (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) #s(hole binary64 (- (+ (* delta (- (+ (* delta (- (+ (* -1 (/ (pow (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) 2) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (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))))) (+ (* -1 (/ (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1))))) (- (/ (* (pow (sin phi1) 3) (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (* -1 (/ (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (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))))) (+ (* 3/2 (/ 1 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (* 2 (/ (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* -1 (pow (sin phi1) 2)) (* 2 (* (pow (sin phi1) 2) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (+ 1 (+ (* -4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2)))) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)) (/ (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))))) (/ (* (pow (sin phi1) 3) (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (* -1 (/ (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) #s(hole binary64 (- (+ (* delta (- (+ (* delta (- (+ (* -1 (/ (pow (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) 2) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (* delta (- (+ (* -1 (/ (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 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))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (- (+ (* 2 (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (* -1 (pow (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) 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) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (+ (* 1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))) (* (sin phi1) (+ (* 1/3 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (cos phi1) (* (cos theta) (sin phi1))))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))) (+ (* -1 (/ (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1))))) (- (+ (* -1 (/ (pow (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) 2) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (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))))) (+ (* -1 (/ (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1))))) (- (/ (* (pow (sin phi1) 3) (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (* -1 (/ (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (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))))) (+ (* 3/2 (/ 1 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (* 2 (/ (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* -1 (pow (sin phi1) 2)) (* 2 (* (pow (sin phi1) 2) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (+ 1 (+ (* -4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2)))) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)) (/ (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (* -1 (/ (* (+ (* -2 (/ (* (cos phi1) (* (cos theta) (- (* 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) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (sin phi1))) (+ (* -1 (/ (* (cos phi1) (* (cos theta) (- (* -1 (pow (sin phi1) 2)) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (sin phi1))) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* 1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* 2 (* (cos phi1) (* (cos theta) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (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)) (* 2 (* (pow (sin phi1) 2) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (+ 1 (+ (* -4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2)))) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))) (- (/ (* (pow (sin phi1) 3) (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (* -1 (/ (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (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)))))))) (/ (* (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)))))) (+ (* -1 (/ (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1))))) (- (/ (* (pow (sin phi1) 3) (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (* -1 (/ (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (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))))) (+ (* 3/2 (/ 1 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (* 2 (/ (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* -1 (pow (sin phi1) 2)) (* 2 (* (pow (sin phi1) 2) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (+ 1 (+ (* -4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2)))) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)) (/ (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))))) (/ (* (pow (sin phi1) 3) (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (* -1 (/ (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) #s(hole binary64 (- 1 (pow (sin phi1) 6))))
#s(approx (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) #s(hole binary64 (- (+ 1 (* delta (* (pow (sin phi1) 3) (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (pow (sin phi1) 6))))
#s(approx (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) #s(hole binary64 (- (+ 1 (* delta (+ (* delta (- (+ (* -1 (pow (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) 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)))))))) (+ 3/2 (+ (* 2 (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (pow (sin phi1) 4) (- (* -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)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))))) (pow (sin phi1) 6))))
#s(approx (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) #s(hole binary64 (- (+ 1 (* delta (+ (* delta (- (+ (* -1 (pow (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) 2)) (+ (* delta (+ (* -1 (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 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)))))))) (+ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (+ (* 1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))) (* (sin phi1) (+ (* 1/3 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (cos phi1) (* (cos theta) (sin phi1))))))))) (/ (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (- (+ (* 2 (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (* -1 (pow (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) 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))))) (* (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))))))))) (+ 3/2 (+ (* 2 (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (pow (sin phi1) 4) (- (* -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)))) (* -1 (* (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 (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) #s(hole binary64 (pow (sin phi1) 6)))
#s(approx (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) #s(hole binary64 (+ (* -1 (* delta (* (pow (sin phi1) 3) (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (pow (sin phi1) 6))))
#s(approx (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) #s(hole binary64 (+ (* delta (- (* delta (- (+ (* 2 (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (* -1 (pow (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) 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)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (pow (sin phi1) 6))))
#s(approx (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) #s(hole binary64 (+ (* delta (- (* delta (- (+ (* -1 (* delta (+ (* -1 (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 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)))))))) (+ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (+ (* 1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))) (* (sin phi1) (+ (* 1/3 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (cos phi1) (* (cos theta) (sin phi1))))))))) (/ (* (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (- (+ (* 2 (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (* -1 (pow (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) 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 (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (pow (sin phi1) 4) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (+ (* -1 (pow (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) 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)))) (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (pow (sin phi1) 6))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) #s(hole binary64 (+ (* delta (- (* delta (- (* -1 (pow (sin phi1) 2)) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* -1/2 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) #s(hole binary64 (+ (* delta (- (* delta (- (+ (* -1 (* delta (+ (* -1 (/ (* (cos phi1) (* (cos theta) (- (* -1 (pow (sin phi1) 2)) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* -1/2 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (sin phi1))) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (* 1/6 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (* -1 (pow (sin phi1) 2))) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* -1/2 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (sin phi1)))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (+ (sin phi1) (* delta (- (* delta (- (* -1 (sin phi1)) (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1))) (+ (* -1/2 (sin phi1)) (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1)))))) (* -1 (* (cos phi1) (cos theta))))))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (+ (sin phi1) (* delta (- (* delta (- (+ (* -1 (sin phi1)) (* -1 (* delta (+ (* -1 (/ (* (cos phi1) (* (cos theta) (- (* -1 (sin phi1)) (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1))) (+ (* -1/2 (sin phi1)) (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1))))))) (sin phi1))) (+ (* -1/2 (* (cos phi1) (cos theta))) (* 1/6 (* (cos phi1) (cos theta)))))))) (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1))) (+ (* -1/2 (sin phi1)) (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1)))))) (* -1 (* (cos phi1) (cos theta))))))))
#s(approx (sin (+ delta phi1)) #s(hole binary64 (sin phi1)))
#s(approx (sin (+ delta phi1)) #s(hole binary64 (+ (sin phi1) (* delta (cos phi1)))))
#s(approx (sin (+ delta phi1)) #s(hole binary64 (+ (sin phi1) (* delta (+ (cos phi1) (* -1/2 (* delta (sin phi1))))))))
#s(approx (sin (+ delta phi1)) #s(hole binary64 (+ (sin phi1) (* delta (+ (cos phi1) (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (cos phi1))))))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) #s(hole binary64 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) #s(hole binary64 (+ 1 (+ (* -1 (* delta (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1))))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) #s(hole binary64 (+ 1 (+ (* delta (- (* delta (- (+ (* -1 (pow (sin phi1) 2)) (* 2 (* (pow (sin phi1) 2) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (+ 1 (+ (* -4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2)))) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1))))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) #s(hole binary64 (+ 1 (+ (* delta (- (* delta (- (+ (* -1 (* delta (+ (* -2 (/ (* (cos phi1) (* (cos theta) (- (* 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) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (sin phi1))) (+ (* -1 (/ (* (cos phi1) (* (cos theta) (- (* -1 (pow (sin phi1) 2)) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (sin phi1))) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* 1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* 2 (* (cos phi1) (* (cos theta) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (cos phi1) (* (cos theta) (sin phi1)))))))))))) (+ (* -1 (pow (sin phi1) 2)) (* 2 (* (pow (sin phi1) 2) (- (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (+ 1 (+ (* -4 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin phi1) 2)))) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1))))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) #s(hole binary64 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) #s(hole binary64 (+ (* -1 (* delta (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1))))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) #s(hole binary64 (+ (* delta (- (* delta (- (+ (* -1 (pow (sin phi1) 2)) (* 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 (cos phi1) 2) (pow (cos theta) 2))) (+ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))) (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1))))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) #s(hole binary64 (+ (* delta (- (* delta (- (+ (* -1 (* delta (+ (* -2 (/ (* (cos phi1) (* (cos theta) (- (* 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) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (sin phi1))) (+ (* -1 (/ (* (cos phi1) (* (cos theta) (- (* -1 (pow (sin phi1) 2)) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (sin phi1))) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* 1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* 2 (* (cos phi1) (* (cos theta) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (cos phi1) (* (cos theta) (sin phi1)))))))))))) (+ (* -1 (pow (sin phi1) 2)) (* 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 (cos phi1) 2) (pow (cos theta) 2))) (+ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))) (+ (* -2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1))))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) #s(hole binary64 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) #s(hole binary64 (+ (* delta (- (* delta (- (* -1 (pow (sin phi1) 2)) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) #s(hole binary64 (+ (* delta (- (* delta (- (+ (* -1 (* delta (+ (* -1 (/ (* (cos phi1) (* (cos theta) (- (* -1 (pow (sin phi1) 2)) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (sin phi1))) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (* 1/6 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (* -1 (pow (sin phi1) 2))) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (sin delta) #s(hole binary64 (sin delta)))
#s(approx (cos delta) #s(hole binary64 (cos delta)))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (+ phi1 delta) #s(hole binary64 (* delta (+ 1 (/ phi1 delta)))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (pow (cos delta) 3) #s(hole binary64 (pow (cos delta) 3)))
#s(approx (+ delta phi1) #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 (+ delta phi1)) #s(hole binary64 (sin (- phi1 (* -1 delta)))))
#s(approx (+ delta phi1) #s(hole binary64 (* -1 (* delta (- (* -1 (/ phi1 delta)) 1)))))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) #s(hole binary64 (* theta (* (cos phi1) (sin delta)))))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) #s(hole binary64 (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (cos phi1))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* -1/6 (* (pow theta 2) (cos phi1)))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* (pow theta 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow theta 2) (cos phi1)))))))))
#s(approx (* (cos phi1) (sin theta)) #s(hole binary64 (* theta (+ (cos phi1) (* (pow theta 2) (+ (* -1/6 (cos phi1)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#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 (* (* (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) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (- (cos delta) (/ (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (/ (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (+ (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow theta 2) (- (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/3 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (/ (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (+ (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* (pow theta 2) (- (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (- (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/720 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (* -1/3 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* 2/45 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* -1/3 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (/ (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (* (sin 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 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 (* (sin delta) (sin theta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (- (cos delta) (* (+ (* (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) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (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))))))) (* (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))))))
#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 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) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) #s(hole binary64 (/ (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))) (+ (/ (* (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))) (/ (pow (cos delta) 3) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (/ (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin 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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (+ (/ (* (- (+ (* -1/3 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (/ (* (pow (sin phi1) 2) (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* -1/24 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (/ (* (cos phi1) (* (sin delta) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (- (* (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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4)))))) (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)) (+ (/ (* (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (- (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))) (+ (/ (* (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (/ (* (pow (sin phi1) 3) (+ (* -1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (+ (* 2 (* (pow (cos phi1) 4) (* (pow (sin delta) 4) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4))) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))))) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (+ (/ (* (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))) (/ (pow (cos delta) 3) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (* (pow theta 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 (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (/ (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (/ (* (pow (sin phi1) 3) (+ (* -1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (+ (* 2 (* (pow (cos phi1) 4) (* (pow (sin delta) 4) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4))) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (/ (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin 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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (/ (* (pow (sin phi1) 3) (* (+ (* -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/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))) (* 1/360 (* (cos phi1) (* (sin delta) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (+ (/ (* (- (+ (* -1/3 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (/ (* (pow (sin phi1) 2) (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* -1/24 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (/ (* (cos phi1) (* (sin delta) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (- (* (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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4)))))) (- (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))) (+ (/ (* (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (+ (/ (* (- (+ (* 2/45 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (/ (* (pow (sin phi1) 2) (+ (* -2/3 (* (pow (cos phi1) 4) (pow (sin delta) 4))) (* 4/45 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/720 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (* -1/3 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (sin phi1) 2) (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (+ (/ (* (cos phi1) (* (sin delta) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (- (* (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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4)))))) (- (* (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)))) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4)))))))) (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)) (+ (/ (* (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (- (+ (/ (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin 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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (+ (/ (* (- (+ (* -1/3 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (/ (* (pow (sin phi1) 2) (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* -1/24 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (/ (* (cos phi1) (* (sin delta) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (- (* (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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4)))))) (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)) (+ (/ (* (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (- (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))) (+ (/ (* (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (/ (* (pow (sin phi1) 3) (+ (* -1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (+ (* 2 (* (pow (cos phi1) 4) (* (pow (sin delta) 4) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4))) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (/ (* (pow (sin phi1) 3) (+ (* -2/3 (* (pow (cos phi1) 4) (* (pow (sin delta) 4) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* 2/45 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (+ (* (+ (* -2/3 (* (pow (cos phi1) 4) (pow (sin delta) 4))) (* 4/45 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4))))))))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))))) (+ (/ (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin 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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (+ (/ (* (- (+ (* -1/3 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (/ (* (pow (sin phi1) 2) (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* -1/24 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (/ (* (cos phi1) (* (sin delta) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (- (* (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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4)))))) (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)) (+ (/ (* (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (- (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))) (+ (/ (* (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (/ (* (pow (sin phi1) 3) (+ (* -1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (+ (* 2 (* (pow (cos phi1) 4) (* (pow (sin delta) 4) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4))) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))))) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (+ (/ (* (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))) (/ (pow (cos delta) 3) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (* (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))))
#s(approx (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) #s(hole binary64 (- (pow (cos delta) 3) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) #s(hole binary64 (- (+ (* (pow theta 2) (- (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (cos delta) 3)) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (/ (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin 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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))) (/ (* (pow (sin phi1) 3) (+ (* -1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (+ (* 2 (* (pow (cos phi1) 4) (* (pow (sin delta) 4) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4))) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (cos delta) 3)) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (* (pow theta 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 (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (/ (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (/ (* (pow (sin phi1) 3) (+ (* -1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (+ (* 2 (* (pow (cos phi1) 4) (* (pow (sin delta) 4) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4))) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (/ (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin 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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (/ (* (pow (sin phi1) 3) (* (+ (* -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/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))) (* 1/360 (* (cos phi1) (* (sin delta) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (/ (* (pow (sin phi1) 3) (+ (* -2/3 (* (pow (cos phi1) 4) (* (pow (sin delta) 4) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* 2/45 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (+ (* (+ (* -2/3 (* (pow (cos phi1) 4) (pow (sin delta) 4))) (* 4/45 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4))))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (/ (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin 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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (/ (* (pow (sin phi1) 3) (+ (* -1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (+ (* 2 (* (pow (cos phi1) 4) (* (pow (sin delta) 4) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4))) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (cos delta) 3)) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) #s(hole binary64 (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))
#s(approx (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) #s(hole binary64 (+ (* (pow theta 2) (- (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (/ (* (pow (sin phi1) 3) (+ (* -1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (+ (* 2 (* (pow (cos phi1) 4) (* (pow (sin delta) 4) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4))) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (/ (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin 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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (/ (* (pow (sin phi1) 3) (+ (* -2/3 (* (pow (cos phi1) 4) (* (pow (sin delta) 4) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* 2/45 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (+ (* (+ (* -2/3 (* (pow (cos phi1) 4) (pow (sin delta) 4))) (* 4/45 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4))))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 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) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (/ (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (/ (* (pow (sin phi1) 3) (+ (* -1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (+ (* 2 (* (pow (cos phi1) 4) (* (pow (sin delta) 4) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4))) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (/ (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin 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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (/ (* (pow (sin phi1) 3) (* (+ (* -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/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))) (* 1/360 (* (cos phi1) (* (sin delta) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))))) (/ (* (pow (sin phi1) 3) (+ (* -1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (+ (* 2 (* (pow (cos phi1) 4) (* (pow (sin delta) 4) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4))) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (/ (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin 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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6))))) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (/ (* (pow (sin phi1) 3) (* (+ (* 1/2 (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (cos phi1) (* (sin delta) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 6)))) (/ (* (pow (sin phi1) 3) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 3)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) #s(hole binary64 (/ (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) #s(hole binary64 (+ (* (pow theta 2) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (/ (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (* -1/3 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (/ (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (* -1/3 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (- (* 2/45 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/720 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (* -1/3 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (/ (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (/ (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (/ (* (pow (cos phi1) 2) (pow (sin delta) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (/ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (/ (* (pow (cos phi1) 2) (pow (sin delta) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (* -1/3 (/ (* (pow (cos phi1) 2) (pow (sin delta) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (pow (sin delta) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (/ (* (pow (cos phi1) 2) (pow (sin delta) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (/ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (/ (* (pow (cos phi1) 2) (pow (sin delta) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (* -1/3 (/ (* (pow (cos phi1) 2) (pow (sin delta) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (- (* 2/45 (/ (* (pow (cos phi1) 2) (pow (sin delta) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (pow (sin delta) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/720 (/ (* (cos phi1) (* (sin delta) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (* -1/3 (/ (* (pow (cos phi1) 2) (pow (sin delta) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (pow (sin delta) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (pow (sin delta) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (/ (* (pow (cos phi1) 2) (pow (sin delta) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (/ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (/ (* (pow (cos phi1) 2) (pow (sin delta) 2)) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) #s(hole binary64 (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* (pow theta 2) (- (+ (* -1/3 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (/ (* (pow (sin phi1) 2) (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* -1/24 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (/ (* (cos phi1) (* (sin delta) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (- (* (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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))))))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* (pow theta 2) (- (+ (* -1/3 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow theta 2) (- (+ (* 2/45 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (/ (* (pow (sin phi1) 2) (+ (* -2/3 (* (pow (cos phi1) 4) (pow (sin delta) 4))) (* 4/45 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/720 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (* -1/3 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (sin phi1) 2) (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (+ (/ (* (cos phi1) (* (sin delta) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (- (* (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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4)))))) (- (* (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)))) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))))))))) (/ (* (pow (sin phi1) 2) (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* -1/24 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (/ (* (cos phi1) (* (sin delta) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (- (* (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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))))))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (+ (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) #s(hole binary64 (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* (pow theta 2) (- (+ (* -1/3 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (/ (* (pow (sin phi1) 2) (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* -1/24 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (/ (* (cos phi1) (* (sin delta) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (- (* (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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))))))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* (pow theta 2) (- (+ (* -1/3 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow theta 2) (- (+ (* 2/45 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (/ (* (pow (sin phi1) 2) (+ (* -2/3 (* (pow (cos phi1) 4) (pow (sin delta) 4))) (* 4/45 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/720 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (* -1/3 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (sin phi1) 2) (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (+ (/ (* (cos phi1) (* (sin delta) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (- (* (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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4)))))) (- (* (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)))) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))))))))) (/ (* (pow (sin phi1) 2) (+ (* -2/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 4) (pow (sin delta) 4)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* -1/24 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (/ (* (cos phi1) (* (sin delta) (- (* 2 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (* (pow (sin phi1) 2) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (- (* (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 (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 4))))))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (+ (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (/ (* (pow (sin phi1) 2) (pow (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) 2)) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) #s(hole binary64 (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) #s(hole binary64 (+ (* (pow theta 2) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (* -1/3 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (* -1/3 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (- (* 2/45 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/720 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (* -1/3 (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (+ (* -1/24 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (/ (* (cos delta) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* 1/2 (/ (* (cos delta) (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (/ (* (cos delta) (* (sin phi1) (- (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (sin theta) #s(hole binary64 (sin theta)))
#s(approx (cos theta) #s(hole binary64 (cos theta)))

Outputs
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))) (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (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 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))) (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))
lambda1
(atan2.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))
(.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta)))
(sin.f64 delta)
delta
(*.f64 (cos.f64 phi1) (sin.f64 theta))
(sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 phi1))
(cos.f64 phi1)
phi1
(sin.f64 theta)
theta
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 delta))
(cos.f64 delta)
(.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))) (cos.f64 (+.f64 phi1 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))) #s(literal 2 binary64))
(sin.f64 phi1)
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (.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))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (.f64 (.f64 (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 (*.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 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (.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))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (.f64 (.f64 (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 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (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))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(sin.f64 (+.f64 theta (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 theta))
(cos.f64 theta)
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos.f64 delta))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos.f64 delta))))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos.f64 delta)))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos.f64 delta))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) ( (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos.f64 delta))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos.f64 delta)))) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) ( (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos.f64 delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos.f64 delta))))
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos.f64 delta)))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos.f64 delta))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (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)))))) (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 #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 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (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)))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (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)))))) (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 #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 #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)))))))
(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 (.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))
(/.f64 (-.f64 (pow.f64 #s(approx (cos delta) #s(literal 1 binary64)) #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 #s(approx (cos delta) #s(literal 1 binary64)) #s(approx (cos delta) #s(literal 1 binary64)) (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 #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 #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)))))
#s(approx (cos delta) #s(literal 1 binary64))
#s(literal 1 binary64)
(.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (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)
#s(approx (+ 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) #s(approx ( (cos phi1) (sin delta)) (sin.f64 delta)))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
(.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) #s(approx ( (cos phi1) (sin delta)) (sin.f64 delta)))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1)
(/.f64 (-.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) #s(approx ( (cos phi1) (sin delta)) (sin.f64 delta)))) (sin.f64 phi1)))) lambda1) (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)))) (sin.f64 phi1)))) lambda1)) #s(literal 1 binary64)) (-.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)))
(/.f64 (+.f64 (pow.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) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)))) (sin.f64 phi1)))) lambda1) #s(literal 3 binary64)) #s(literal 1 binary64)) (fma.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) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)))) (sin.f64 phi1)))) lambda1) (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)))) (sin.f64 phi1)))) lambda1) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) #s(approx ( (cos phi1) (sin delta)) (sin.f64 delta)))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)))))
(+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64))
(/.f64 (neg.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)))) (sin.f64 phi1))))) (neg.f64 lambda1))
(/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) #s(approx (* (cos phi1) (sin delta)) (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) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)))) (sin.f64 phi1))))
(.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(/.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)))) (sin.f64 phi1)) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)))) (sin.f64 phi1)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) #s(approx ( (cos phi1) (sin delta)) (sin.f64 delta)))) (sin.f64 phi1))))))
(-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)))) (sin.f64 phi1)))
(.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)))) (sin.f64 phi1))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 theta) #s(approx ( (cos phi1) (sin delta)) (sin.f64 delta))) (.f64 (cos.f64 theta) #s(approx ( (cos phi1) (sin delta)) (sin.f64 delta))))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta)))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 theta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (cos.f64 theta) #s(approx ( (cos phi1) (sin delta)) (sin.f64 delta))) (.f64 (cos.f64 theta) #s(approx ( (cos phi1) (sin delta)) (sin.f64 delta)))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) #s(approx ( (cos phi1) (sin delta)) (sin.f64 delta)))))))
(fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) #s(approx ( (cos phi1) (sin delta)) (sin.f64 delta))))
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) #s(approx (* (cos phi1) (sin delta)) (sin.f64 delta))))
(.f64 (cos.f64 theta) #s(approx ( (cos phi1) (sin delta)) (sin.f64 delta)))
#s(approx (* (cos phi1) (sin delta)) (sin.f64 delta))
(/.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 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (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 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1))))))))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))))))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1))))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (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 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))))))) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (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 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (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 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))))) (/.f64 (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))))))
(.f64 (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1))))) (-.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (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 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (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 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 3 binary64))))))
(-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #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)))
#s(literal 3 binary64)
(.f64 (pow.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))
(.f64 (pow.f64 (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))
(.f64 (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)))
(pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 3 binary64))
(exp.f64 (.f64 (log.f64 (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1))) #s(literal 3 binary64)))
(.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1)))
(fma.f64 (sin.f64 delta) (cos.f64 phi1) (*.f64 (cos.f64 delta) (sin.f64 phi1)))
(sin.f64 (+.f64 delta phi1))
(+.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)))
(/.f64 (-.f64 (.f64 delta delta) (.f64 phi1 phi1)) (-.f64 delta phi1))
(/.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 delta 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 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))) (+.f64 (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (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 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (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 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))) (+.f64 (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1))))))))
(fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (cos.f64 delta)) (+.f64 (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))))
(fma.f64 (fabs.f64 (cos.f64 delta)) (fabs.f64 (cos.f64 delta)) (+.f64 (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))))
(fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))))
(+.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64))) (.f64 (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1))) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1))))) (-.f64 (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1))) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))) (.f64 (pow.f64 (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))))))
(fma.f64 (neg.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1))) (neg.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1))) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1))))
(fma.f64 (fabs.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1))) (fabs.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1))) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1))))
(fma.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1))))
(+.f64 (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1))))
(.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))
#s(approx (+ lambda1 (atan2 (* (sin delta) (* (cos phi1) (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 (* (sin delta) (* (cos phi1) (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 lambda1)
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
#s(approx (* (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) lambda1) 1) lambda1) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
#s(approx (* (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) lambda1) 1) lambda1) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
#s(approx (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) lambda1) 1) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))) lambda1))
#s(approx (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) lambda1) 1) (/.f64 (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))) lambda1))
#s(approx (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) lambda1) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 3 binary64)))) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))))) (+.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)) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 3 binary64)))) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.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 delta) (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (sin delta) (* (cos phi1) (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 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))) lambda1))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))) lambda1))))
#s(approx (* (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) lambda1) 1) lambda1) lambda1)
#s(approx (* (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) lambda1) 1) lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))) lambda1))))
#s(approx (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) lambda1) 1) #s(literal 1 binary64))
#s(approx (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) lambda1) 1) (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))) lambda1)))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))))) (.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)) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 3 binary64)))) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.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 delta) (* (cos phi1) (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 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (* (+ (/ (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) lambda1) 1) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))))) (.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)) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 3 binary64)))) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.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 (atan2 (* (sin delta) (* (cos phi1) (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 (* (sin delta) (* (cos phi1) (sin theta))) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi1 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) (fma.f64 (sin.f64 delta) (sin.f64 theta) (.f64 (.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) (* (cos phi1) (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 theta)) (sin.f64 theta))
#s(approx (* (cos phi1) (sin theta)) (+.f64 (sin.f64 theta) (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 phi1 phi1) (sin.f64 theta)))))
#s(approx (* (cos phi1) (sin theta)) (+.f64 (sin.f64 theta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 theta) (.f64 #s(literal 1/24 binary64) (.f64 (*.f64 phi1 phi1) (sin.f64 theta)))))))
#s(approx (* (cos phi1) (sin theta)) (+.f64 (sin.f64 theta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 theta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi1 phi1) (sin.f64 theta)) (*.f64 #s(literal 1/24 binary64) (sin.f64 theta))))))))
#s(approx (cos phi1) #s(literal 1 binary64))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)))) #s(literal 1/2 binary64)))))
#s(approx phi1 phi1)
#s(approx (- (cos delta) (* (sin phi1) (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 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 (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 phi1 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))) (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 delta)))))) (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (asin.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (sin (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)) (*.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 (* (* (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 (* (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 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
#s(approx (* (* (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 delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos.f64 delta))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (+.f64 (cos.f64 delta) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 delta))) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1 binary64) (cos.f64 delta) (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))) (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/6 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))) (.f64 (cos.f64 theta) (sin.f64 delta)))))))) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
#s(approx (* (* (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 (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 delta) (sin theta)) (cos phi1)) (- (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 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
#s(approx (* (* (sin delta) (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 (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) (cos.f64 delta))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) (+.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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) (+.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) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (cos.f64 delta))) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (.f64 phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (.f64 phi1 (fma.f64 phi1 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (.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 (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (fma.f64 phi1 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (fma.f64 phi1 (+.f64 (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 (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (fma.f64 phi1 (+.f64 (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) (sin delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi1 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 phi1 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi1 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 3 binary64)))) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) (cos.f64 delta))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) (+.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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (cos.f64 delta)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (cos.f64 delta)) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (cos.f64 delta))))) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 delta) (.f64 phi1 (-.f64 (fma.f64 #s(literal -2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (fma.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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (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)) (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/6 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))) (.f64 (cos.f64 theta) (sin.f64 delta))) (/.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (-.f64 (.f64 #s(literal -1 binary64) (cos.f64 delta)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (cos.f64 delta)) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (cos.f64 delta)))))) (cos.f64 delta))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (cos.f64 delta)) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (cos.f64 delta))))) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)))
#s(approx (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (fma.f64 (pow.f64 phi1 #s(literal 3 binary64)) (-.f64 (.f64 phi1 (fma.f64 #s(literal -1 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 phi1 (-.f64 (fma.f64 #s(literal -1 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 #s(literal -1 binary64) (.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 1/2 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))))) (.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (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)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))))) (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 6 binary64)) (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)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 theta) #s(literal 4 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 4 binary64)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 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 (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 6 binary64)) (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)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 theta) #s(literal 4 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 4 binary64)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)))) (fma.f64 #s(literal -1 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 #s(literal -1 binary64) (.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 1/2 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))))) (.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (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)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))))))) (.f64 #s(literal -1 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)))))
#s(approx (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 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 binary64) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (.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))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (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 #s(literal -1 binary64) (.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 1/2 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.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))))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (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 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 6 binary64)) (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)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 theta) #s(literal 4 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 4 binary64)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)))) (fma.f64 #s(literal -1 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 #s(literal -1 binary64) (.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 1/2 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))))) (.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (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)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))))))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))))))) (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 6 binary64)) (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)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 theta) #s(literal 4 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 4 binary64)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))))) (fma.f64 #s(literal -1 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 #s(literal -1 binary64) (.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 1/2 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))))) (.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (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)))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))))))) (.f64 #s(literal -1 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)))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (.f64 phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (.f64 phi1 (fma.f64 phi1 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (.f64 phi1 (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/6 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (.f64 #s(literal -1 binary64) (cos.f64 delta))) (.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (.f64 phi1 (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (/.f64 (cos.f64 delta) (cos.f64 theta)) (/.f64 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/6 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))) (sin.f64 delta))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 delta) (.f64 #s(literal 1/6 binary64) (cos.f64 delta))))) (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/6 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))) (.f64 (cos.f64 theta) (sin.f64 delta))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (.f64 #s(literal -1 binary64) (cos.f64 delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (fma.f64 phi1 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (.f64 #s(literal -1 binary64) (cos.f64 delta))) (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (/.f64 (cos.f64 delta) (cos.f64 theta)) (/.f64 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))) (sin.f64 delta))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 delta) (.f64 #s(literal 1/6 binary64) (cos.f64 delta))))) (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))) (.f64 (cos.f64 theta) (sin.f64 delta))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (.f64 #s(literal -1 binary64) (cos.f64 delta))) (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (sin (+ delta phi1)) (sin.f64 delta))
#s(approx (sin (+ delta phi1)) (+.f64 (sin.f64 delta) (*.f64 phi1 (cos.f64 delta))))
#s(approx (sin (+ delta phi1)) (+.f64 (sin.f64 delta) (.f64 phi1 (+.f64 (cos.f64 delta) (.f64 #s(literal -1/2 binary64) (*.f64 phi1 (sin.f64 delta)))))))
#s(approx (sin (+ delta phi1)) (+.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 (+ delta phi1) delta)
#s(approx (+ delta phi1) (+.f64 delta phi1))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) (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 (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) (fma.f64 phi1 (fma.f64 phi1 (-.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1 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 (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) (fma.f64 phi1 (fma.f64 phi1 (-.f64 (fma.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 (cos.f64 delta) (cos.f64 theta)) (/.f64 (-.f64 (fma.f64 #s(literal 1/6 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 #s(literal -2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 #s(literal -1 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 (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) (.f64 phi1 (.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) (.f64 phi1 (fma.f64 phi1 (-.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) (.f64 phi1 (fma.f64 phi1 (-.f64 (fma.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 (cos.f64 delta) (cos.f64 theta)) (/.f64 (-.f64 (fma.f64 #s(literal 1/6 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 #s(literal -2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) (.f64 phi1 (fma.f64 phi1 (-.f64 (fma.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (/.f64 (cos.f64 delta) (cos.f64 theta)) (/.f64 (-.f64 (fma.f64 #s(literal 1/6 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))) (sin.f64 delta))) (.f64 phi1 (-.f64 (fma.f64 #s(literal -2 binary64) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 #s(literal -4 binary64) (pow.f64 (cos.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)) (fma.f64 #s(literal -1 binary64) (.f64 (/.f64 (cos.f64 delta) (cos.f64 theta)) (/.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 (cos.f64 delta) (cos.f64 theta)) (/.f64 (-.f64 (fma.f64 #s(literal 1/6 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (sin.f64 delta))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal 1/6 binary64) (pow.f64 (cos.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) (.f64 (cos.f64 theta) (sin.f64 delta))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (.f64 phi1 (.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (.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) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (.f64 phi1 (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 (cos.f64 delta) (cos.f64 theta)) (/.f64 (-.f64 (fma.f64 #s(literal 1/6 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))) (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (.f64 phi1 (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (/.f64 (cos.f64 delta) (cos.f64 theta)) (/.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 (cos.f64 delta) (cos.f64 theta)) (/.f64 (-.f64 (fma.f64 #s(literal 1/6 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (sin.f64 delta))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 #s(literal 1/6 binary64) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (.f64 #s(literal -1 binary64) (.f64 (/.f64 (cos.f64 delta) (cos.f64 theta)) (/.f64 (-.f64 (fma.f64 #s(literal 1/6 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))) (sin.f64 delta))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))) (.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (* (cos phi1) (sin theta)) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
#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 (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 phi1) (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) (.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)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (cos phi1) (sin delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (-.f64 (cos.f64 delta) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))))
#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 (* (* (sin delta) (sin theta)) (cos phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) (-.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 (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (.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 (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (fma.f64 (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))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 3 binary64)))) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.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 (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (sin (+ delta phi1)) (sin.f64 (+.f64 delta phi1)))
#s(approx (+ delta phi1) phi1)
#s(approx (+ delta phi1) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (/.f64 delta phi1))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.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 (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))) (-.f64 (.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) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.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) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (sin (+ phi1 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 (+ delta phi1)) (sin.f64 (-.f64 delta (*.f64 #s(literal -1 binary64) phi1))))
#s(approx (+ delta phi1) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 delta phi1)) #s(literal 1 binary64)))))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta))))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) (.f64 delta (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 delta delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (sin.f64 theta)))))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) (.f64 delta (fma.f64 (cos.f64 phi1) (sin.f64 theta) (.f64 (.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) (* (cos phi1) (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 (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 (- (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 (cos delta) #s(literal 1 binary64))
#s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta))))
#s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 delta delta)) #s(literal 1/2 binary64)))))
#s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 (.f64 delta delta) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 delta delta)))) #s(literal 1/2 binary64)))))
#s(approx (* (sin phi1) (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 (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)) (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 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 (* (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 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 delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (-.f64 (+.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) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (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/2 binary64) (*.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 delta (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))))) (sin.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (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 (+ 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 (* (* (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 (* (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) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) (-.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 (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (-.f64 (.f64 delta (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (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 (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 phi1))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (+.f64 (sin.f64 phi1) (.f64 delta (.f64 (cos.f64 phi1) (cos.f64 theta)))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (+.f64 (sin.f64 phi1) (.f64 delta (fma.f64 #s(literal -1/2 binary64) (.f64 delta (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (+.f64 (sin.f64 phi1) (.f64 delta (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) (* (cos phi1) (sin delta))) (.f64 delta (.f64 (cos.f64 phi1) (cos.f64 theta))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (.f64 delta (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 delta delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (.f64 delta (fma.f64 (cos.f64 phi1) (cos.f64 theta) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 delta delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (.f64 delta (fma.f64 (cos.f64 phi1) (cos.f64 theta) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 delta delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (.f64 #s(literal 1/120 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) (/.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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) (-.f64 (fma.f64 delta (-.f64 (/.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 #s(literal -1 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 #s(literal -1 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 #s(literal -1 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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) (-.f64 (fma.f64 delta (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (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 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 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 (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)))))) (fma.f64 #s(literal -1 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 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (-.f64 (/.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 #s(literal -1 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 #s(literal -1 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 #s(literal -1 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))))) (fma.f64 #s(literal 3/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)) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (-.f64 (.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 (-.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 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (.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 #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))) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #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)))))))))) (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 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (-.f64 (.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 (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 #s(literal -1 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 #s(literal -1 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 #s(literal -1 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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) (-.f64 (fma.f64 delta (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (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 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 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))))) (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.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 #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/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))))) (fma.f64 (/.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 #s(literal -1 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 3 binary64))) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (-.f64 (.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 4 binary64)) (-.f64 (.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 -1 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 #s(literal -1 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 -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 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.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))))) (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) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))) (fma.f64 #s(literal -1 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 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (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 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 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 (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)))))) (fma.f64 #s(literal -1 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 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (-.f64 (/.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 #s(literal -1 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 #s(literal -1 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 #s(literal -1 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))))) (fma.f64 #s(literal 3/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)) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (-.f64 (.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 (-.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 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (.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 #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))) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #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)))))))))) (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 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (-.f64 (.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 #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 -1 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (.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 -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 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)))))))) (sin.f64 phi1)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) (sin.f64 phi1)) (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))) (fma.f64 #s(literal 2 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 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))))) (-.f64 #s(literal 1 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 (.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (.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 #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))) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #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 (/.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 #s(literal -1 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 #s(literal -1 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 #s(literal -1 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 (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))))))) (fma.f64 #s(literal -1 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 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (-.f64 (/.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 #s(literal -1 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 #s(literal -1 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 #s(literal -1 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))))) (fma.f64 #s(literal 3/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)) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (-.f64 (.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 (-.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 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (.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 #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))) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #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)))))))))) (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 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (-.f64 (.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 (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 #s(literal -1 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 #s(literal -1 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 #s(literal -1 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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (-.f64 (+.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 #s(literal -1 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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 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 #s(literal -1 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 -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 3/2 binary64) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (-.f64 (.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 4 binary64)) (-.f64 (.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 #s(literal -1 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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 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 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (fma.f64 delta (fma.f64 #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 2 binary64)))) (.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/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 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.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))))) (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) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (/.f64 (.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 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (-.f64 (.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 4 binary64)) (-.f64 (.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 -1 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 #s(literal -1 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 -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 (sin.f64 phi1) #s(literal 3 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 3/2 binary64) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (-.f64 (.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 4 binary64)) (-.f64 (.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 #s(literal -1 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 (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))
#s(approx (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) (fma.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 #s(literal -1 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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) (fma.f64 delta (-.f64 (.f64 delta (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (-.f64 (.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 4 binary64)) (-.f64 (.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 -1 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 #s(literal -1 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 -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 #s(literal -1 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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) (fma.f64 delta (-.f64 (.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 delta (fma.f64 #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 2 binary64)))) (.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/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 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.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))))) (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) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (/.f64 (.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 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (-.f64 (.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 4 binary64)) (-.f64 (.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 -1 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 #s(literal -1 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 -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 (sin.f64 phi1) #s(literal 3 binary64)))))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (-.f64 (.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 4 binary64)) (-.f64 (.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 -1 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 #s(literal -1 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 -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 #s(literal -1 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 (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (fma.f64 delta (-.f64 (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (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) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (fma.f64 delta (-.f64 (.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 delta (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))))) (sin.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) (.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (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) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 phi1))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (+.f64 (sin.f64 phi1) (.f64 delta (.f64 (cos.f64 phi1) (cos.f64 theta)))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (+.f64 (sin.f64 phi1) (.f64 delta (-.f64 (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (sin.f64 phi1)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)) (sin.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)) (sin.f64 phi1)))))) (.f64 #s(literal -1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (+.f64 (sin.f64 phi1) (.f64 delta (-.f64 (.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 phi1) (.f64 #s(literal -1 binary64) (.f64 delta (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (-.f64 (.f64 #s(literal -1 binary64) (sin.f64 phi1)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)) (sin.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)) (sin.f64 phi1))))))) (sin.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)) (sin.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)) (sin.f64 phi1)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))
#s(approx (sin (+ delta phi1)) (sin.f64 phi1))
#s(approx (sin (+ delta phi1)) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1))))
#s(approx (sin (+ delta phi1)) (+.f64 (sin.f64 phi1) (.f64 delta (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (*.f64 delta (sin.f64 phi1)))))))
#s(approx (sin (+ delta phi1)) (+.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) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) (+.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 (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (.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 #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 (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) (+.f64 #s(literal 1 binary64) (fma.f64 delta (-.f64 (.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (.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 #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))) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #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)))))))))) (fma.f64 #s(literal -2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 #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 (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) (+.f64 #s(literal 1 binary64) (fma.f64 delta (-.f64 (.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 delta (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (.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 -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 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)))))))) (sin.f64 phi1)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) (sin.f64 phi1)) (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))) (fma.f64 #s(literal 2 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 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))))))) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (.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 #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))) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #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)))))))))) (fma.f64 #s(literal -2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 #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 (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) (fma.f64 #s(literal -1 binary64) (.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 #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 (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) (fma.f64 delta (-.f64 (.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (.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 -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))) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #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))))))))) (fma.f64 #s(literal -2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 #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 (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) (fma.f64 delta (-.f64 (.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 delta (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (.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 -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 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)))))))) (sin.f64 phi1)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) (sin.f64 phi1)) (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))) (fma.f64 #s(literal 2 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 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))))))) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (.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 -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))) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #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))))))))) (fma.f64 #s(literal -2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 #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) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (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) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (fma.f64 delta (-.f64 (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) (.f64 #s(literal -1 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) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (fma.f64 delta (-.f64 (.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 delta (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) (sin.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) (.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) (.f64 #s(literal -1 binary64) (.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.f64 delta))
#s(approx (cos delta) (cos.f64 delta))
#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (+ phi1 delta) (*.f64 delta (+.f64 #s(literal 1 binary64) (/.f64 phi1 delta))))
#s(approx (* (sin delta) (sin theta)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (pow (cos delta) 3) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)))
#s(approx (+ delta phi1) (*.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 (+ delta phi1)) (sin.f64 (-.f64 phi1 (*.f64 #s(literal -1 binary64) delta))))
#s(approx (+ delta phi1) (.f64 #s(literal -1 binary64) (.f64 delta (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 phi1 delta)) #s(literal 1 binary64)))))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) (.f64 theta (.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) (.f64 theta (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (* (sin delta) (* (cos phi1) (sin theta))) (.f64 theta (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.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) (* (cos phi1) (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 phi1) (sin theta)) (*.f64 theta (cos.f64 phi1)))
#s(approx (* (cos phi1) (sin theta)) (.f64 theta (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/6 binary64) (.f64 (.f64 theta theta) (cos.f64 phi1))))))
#s(approx (* (cos phi1) (sin theta)) (.f64 theta (+.f64 (cos.f64 phi1) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 theta theta) (cos.f64 phi1))))))))
#s(approx (* (cos phi1) (sin theta)) (.f64 theta (+.f64 (cos.f64 phi1) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 theta theta) (cos.f64 phi1)) (.f64 #s(literal 1/120 binary64) (cos.f64 phi1)))))))))
#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 (- (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 (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 (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 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) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (-.f64 (cos.f64 delta) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (-.f64 (+.f64 (cos.f64 delta) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (-.f64 (+.f64 (cos.f64 delta) (.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/3 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (-.f64 (+.f64 (cos.f64 delta) (.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.f64 #s(literal -1/3 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (.f64 #s(literal 2/45 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 #s(literal -1/3 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (* (* (sin 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 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 (* (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) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) (-.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) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) (-.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 (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) (-.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 (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) (-.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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (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 (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (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 (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (fma.f64 (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 (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (fma.f64 (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) (sin delta))) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 theta theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))) (+.f64 (/.f64 (.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.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 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))) (pow.f64 (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.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 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 3 binary64)) (.f64 (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (-.f64 (/.f64 (.f64 (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)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (.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) (-.f64 (.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 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64))))) (+.f64 (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/3 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -2/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 4 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 #s(literal -1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.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 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 4 binary64))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))) (pow.f64 (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 (.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))) (+.f64 (/.f64 (.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.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 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))) (pow.f64 (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))))) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 4 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 4 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal -2/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 4 binary64))) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64))))) (+.f64 (/.f64 (.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.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 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))) (pow.f64 (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.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 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 3 binary64)) (.f64 (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (.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) (-.f64 (.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 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (-.f64 (/.f64 (.f64 (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)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (fma.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 4 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 4 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal -2/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 4 binary64))) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 (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)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (.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) (-.f64 (.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 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (.f64 (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)) (-.f64 (.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 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.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 (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) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))))) (+.f64 (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/3 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -2/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 4 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 #s(literal -1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.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 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))) (+.f64 (/.f64 (.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.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 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))) (pow.f64 (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))))) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (+.f64 (/.f64 (.f64 (-.f64 (fma.f64 #s(literal 2/45 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -2/3 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 4 binary64)) (.f64 #s(literal 4/45 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.f64 #s(literal -1/3 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -2/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 4 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 #s(literal -1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.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 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 4 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.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 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #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) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 4 binary64))))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))) (pow.f64 (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 (.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))) (-.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (-.f64 (/.f64 (.f64 (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)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (.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) (-.f64 (.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 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64))))) (+.f64 (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/3 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -2/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 4 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 #s(literal -1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.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 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 4 binary64))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))) (pow.f64 (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 (.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))) (+.f64 (/.f64 (.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.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 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))) (pow.f64 (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))))) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 4 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 4 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal -2/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 4 binary64))) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))))))) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (fma.f64 #s(literal -2/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 4 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 4 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (fma.f64 #s(literal 2/45 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (fma.f64 (fma.f64 #s(literal -2/3 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 4 binary64)) (.f64 #s(literal 4/45 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -2/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 4 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))))))) (fma.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (-.f64 (/.f64 (.f64 (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)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (.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) (-.f64 (.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 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))))) (+.f64 (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/3 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -2/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 4 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 #s(literal -1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.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 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 4 binary64))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))) (pow.f64 (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 (.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))) (+.f64 (/.f64 (.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.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 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))) (pow.f64 (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))))) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 4 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 4 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal -2/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 4 binary64))) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64))))) (+.f64 (/.f64 (.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.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 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))) (pow.f64 (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.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 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 3 binary64)) (.f64 (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))))
#s(approx (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64))) (/.f64 (.f64 (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)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 (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)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (.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) (-.f64 (.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 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 4 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 4 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal -2/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 4 binary64))) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))) (/.f64 (.f64 (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)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.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 (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (.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) (-.f64 (.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 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (-.f64 (/.f64 (.f64 (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)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 4 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 4 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal -2/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 4 binary64))) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 (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)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (.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) (-.f64 (.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 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (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)) (-.f64 (.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 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.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 (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) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 4 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 4 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (fma.f64 #s(literal 2/45 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (fma.f64 (fma.f64 #s(literal -2/3 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 4 binary64)) (.f64 #s(literal 4/45 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -2/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 4 binary64))))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 (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)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (.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) (-.f64 (.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 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 4 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 4 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal -2/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 4 binary64))) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))) (/.f64 (.f64 (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)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))))
#s(approx (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))
#s(approx (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) (fma.f64 (.f64 theta theta) (-.f64 (/.f64 (.f64 (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)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))))
#s(approx (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 4 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 4 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal -2/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 4 binary64))) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 (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)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (.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) (-.f64 (.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 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64))))) (/.f64 (.f64 (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)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))))
#s(approx (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 4 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 4 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (fma.f64 #s(literal 2/45 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (fma.f64 (fma.f64 #s(literal -2/3 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 4 binary64)) (.f64 #s(literal 4/45 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -2/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 4 binary64))))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (.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) (-.f64 (.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 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (-.f64 (/.f64 (.f64 (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)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 4 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 4 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal -2/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 4 binary64))) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 (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)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (.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) (-.f64 (.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 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (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)) (-.f64 (.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 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.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 (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) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 4 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 4 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal -2/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 4 binary64))) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 (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)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (.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) (-.f64 (.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 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64))))) (/.f64 (.f64 (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)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 6 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (fma.f64 (.f64 theta theta) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1/3 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1/3 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal 2/45 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.f64 #s(literal -1/3 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1/3 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1/3 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal 2/45 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.f64 #s(literal -1/3 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1/3 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -2/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 4 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 #s(literal -1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.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 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 4 binary64))))))) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))))) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1/3 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal 2/45 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -2/3 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 4 binary64)) (.f64 #s(literal 4/45 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.f64 #s(literal -1/3 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -2/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 4 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 #s(literal -1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.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 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 4 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.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 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #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) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 4 binary64))))))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -2/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 4 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 #s(literal -1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.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 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 4 binary64))))))) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1/3 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -2/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 4 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 #s(literal -1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.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 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 4 binary64))))))) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))
#s(approx (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1/3 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal 2/45 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -2/3 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 4 binary64)) (.f64 #s(literal 4/45 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.f64 #s(literal -1/3 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -2/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 4 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 #s(literal -1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.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 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 4 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.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 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #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) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 4 binary64))))))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -2/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 4 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 #s(literal -1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.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 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 4 binary64))))))) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))) (+.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (fma.f64 (.f64 theta theta) (-.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1/3 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1/3 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal 2/45 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (.f64 #s(literal -1/3 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))) (fma.f64 #s(literal -1/24 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (-.f64 (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (/.f64 (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 phi1)))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (/.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (sin theta) (sin.f64 theta))
#s(approx (cos theta) (cos.f64 theta))

eval253.0ms (2.5%)

Memory: 17.9MiB live, 432.5MiB allocated; 51ms collecting garbage
Compiler: Compiled 167 486 to 6 031 computations (96.4% saved)

prune80.0ms (0.8%)

Memory

-20.7MiB live, 174.7MiB allocated; 34ms collecting garbage

Pruning

37 alts after pruning (34 fresh and 3 done)

	Pruned	Kept	Total
New	1 001	18	1 019
Fresh	3	16	19
Picked	4	1	5
Done	0	2	2
Total	1 008	37	1 045

Accuracy

100.0%

Counts

1 045 → 37

Alt Table

Click to see full alt table

Status	Accuracy	Program
	52.7%	(/.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 (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 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 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 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 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 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))))
	45.5%	(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos.f64 delta))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) ( (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos.f64 delta))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos.f64 delta)))) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) ( (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos.f64 delta)))))))
▶	99.8%	(+.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 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)
	73.5%	(+.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 #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)))))))
	88.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos.f64 delta))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (fma.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	88.9%	(+.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 (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(approx (sin (+ delta phi1)) (+.f64 (sin.f64 phi1) (.f64 delta (cos.f64 phi1))))) (sin.f64 phi1)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1))))))))
	93.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 3 binary64))) (/.f64 (+.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (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 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))) (+.f64 (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))))))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (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 (sin.f64 phi1) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (/.f64 (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)))))))))))
	95.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (sin.f64 delta) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))
	90.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
▶	90.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 #s(approx (+ phi1 delta) delta)))))))
	94.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	82.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))
	82.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))
	82.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) (/.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))))))))
	82.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	90.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))))))) (cos.f64 delta))))
	88.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #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 (-.f64 (pow.f64 (cos.f64 delta) #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 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))))
	82.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
▶	79.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))))))
	80.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta)))))))
	75.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(approx (sin theta) theta)) #s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos.f64 delta))))
	78.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)))) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos.f64 delta))))
	77.6%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	78.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 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)))))))
▶	87.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos.f64 delta))))
	75.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta)))) #s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos.f64 delta))))
▶	29.4%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
	29.4%	#s(approx (+ 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)))))
✓	93.4%	#s(approx (+ 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) #s(approx ( (cos phi1) (sin delta)) (sin.f64 delta)))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
	90.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))))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 3) (pow ( (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) (cos.f64 delta))) lambda1) #s(literal 1 binary64)) lambda1))
	88.6%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 (+.f64 (/.f64 (atan2.f64 #s(approx ( (* (sin delta) (sin theta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) #s(approx ( (cos phi1) (sin delta)) (sin.f64 delta)))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
✓	73.3%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

Compiler

Compiled 5 792 to 2 398 computations (58.6% saved)

series65.0ms (0.7%)

Memory

22.1MiB live, 164.5MiB allocated; 11ms collecting garbage

Counts

42 → 248

Calls

Call 1

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

Calls

15 calls:

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

rewrite274.0ms (2.7%)

Memory

-23.3MiB live, 308.0MiB allocated; 20ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	975	10350
0	1027	8913
1	6026	8690
0	8650	8424

Stop Event

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

Counts

290 → 399

Calls

Call 1

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

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

eval113.0ms (1.1%)

Memory: 14.1MiB live, 253.9MiB allocated; 31ms collecting garbage
Compiler: Compiled 48 972 to 2 680 computations (94.5% saved)

prune99.0ms (1%)

Memory

12.8MiB live, 252.2MiB allocated; 16ms collecting garbage

Pruning

49 alts after pruning (43 fresh and 6 done)

	Pruned	Kept	Total
New	729	23	752
Fresh	9	20	29
Picked	1	4	5
Done	1	2	3
Total	740	49	789

Accuracy

100.0%

Counts

789 → 49

Alt Table

Click to see full alt table

Status	Accuracy	Program
	52.7%	(/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) lambda1))))
	43.0%	(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 #s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 #s(approx ( (* (cos phi1) (sin delta)) (sin theta)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))) (atan2.f64 #s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (.f64 lambda1 (atan2.f64 #s(approx ( (* (cos phi1) (sin delta)) (sin theta)) (.f64 (sin.f64 theta) (sin.f64 delta))) #s(approx (- (cos delta) ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))))))
	99.8%	(+.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))))) lambda1)
✓	99.8%	(+.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 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)
	78.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))))))
	88.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos.f64 delta))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (fma.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	88.9%	(+.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 (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(approx (sin (+ delta phi1)) (+.f64 (sin.f64 phi1) (.f64 delta (cos.f64 phi1))))) (sin.f64 phi1)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1))))))))
	93.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 3 binary64))) (/.f64 (+.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (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 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))) (+.f64 (pow.f64 (.f64 #s(approx (/ (- (pow ( (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 #s(approx (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))))))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (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.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (sin.f64 (fma.f64 #s(literal -1 binary64) 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 #s(approx (+ phi1 delta) delta)))))))
	79.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) 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)))))))
✓	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (/.f64 (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)))))))))))
✓	90.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 #s(approx (+ phi1 delta) delta)))))))
	82.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))
	82.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))
	82.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 3) (pow (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) (/.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))))))))
	82.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	90.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))))))) (cos.f64 delta))))
	88.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	88.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64))) (-.f64 (cos.f64 delta) (.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)))))))
	82.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	59.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (sin.f64 (/.f64 (+.f64 (pow.f64 delta #s(literal 3 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 delta delta (-.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64))))))))))
	62.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) #s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (sin.f64 #s(approx (+ delta (/ (PI) 2)) delta)))))
	69.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(approx (sin theta) theta)) #s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))))))
	75.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(approx (sin theta) theta)) #s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos.f64 delta))))
	77.6%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	78.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 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)))))))
	78.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (sin.f64 (fma.f64 #s(literal -1 binary64) delta (/.f64 (PI.f64) #s(literal 2 binary64)))))))
✓	87.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos.f64 delta))))
	77.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(approx (sin (+ delta (/ (PI) 2))) (fma.f64 (*.f64 delta delta) #s(literal -1/2 binary64) #s(literal 1 binary64))))))
	77.6%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(approx (sin (+ delta (/ (PI) 2))) #s(literal 1 binary64)))))
	72.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (.f64 (sin.f64 delta) #s(approx (sin theta) (.f64 (fma.f64 (.f64 theta theta) #s(literal -1/6 binary64) #s(literal 1 binary64)) theta)))) #s(approx (- (cos delta) ( (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos.f64 delta))))
	73.6%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (.f64 (sin.f64 delta) #s(approx (sin theta) theta))) #s(approx (- (cos delta) ( (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos.f64 delta))))
	74.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (.f64 #s(approx (sin delta) (.f64 (fma.f64 (.f64 delta delta) #s(literal -1/6 binary64) #s(literal 1 binary64)) delta)) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos.f64 delta))))
	74.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (.f64 #s(approx (sin delta) delta) (sin.f64 theta))) #s(approx (- (cos delta) ( (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos.f64 delta))))
	75.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta)))) #s(approx (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (cos.f64 delta))))
✓	29.4%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 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.6%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
	25.4%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
	20.4%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (sin.f64 phi1)))))
	25.0%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	12.5%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (atan2.f64 (.f64 (.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))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	18.9%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (atan2.f64 (.f64 #s(approx ( (cos phi1) (sin delta)) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))))
	29.4%	#s(approx (+ 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)))))
	90.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))))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 3) (pow ( (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1))) (* (cos delta) (* (/ (- (pow (* (sin phi1) (cos delta)) 2) (pow (* (cos theta) (* (cos phi1) (sin delta))) 2)) (- (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (sin phi1)))))) (cos.f64 delta))) lambda1) #s(literal 1 binary64)) lambda1))
	88.6%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 (+.f64 (/.f64 (atan2.f64 #s(approx ( (* (sin delta) (sin theta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) #s(approx ( (cos phi1) (sin delta)) (sin.f64 delta)))) (sin.f64 phi1)))) lambda1) #s(literal 1 binary64)) lambda1))
✓	73.3%	#s(approx (+ 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 9 613 to 2 237 computations (76.7% saved)

regimes140.0ms (1.4%)

Memory

-37.4MiB live, 297.6MiB allocated; 15ms collecting garbage

Counts

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

Outputs

(+.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)))))))))

Calls

7 calls:

20.0ms	lambda1
19.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)))))))))
19.0ms	theta
19.0ms	phi1
19.0ms	phi2

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes175.0ms (1.7%)

Memory

3.8MiB live, 200.4MiB allocated; 52ms collecting garbage

Counts

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

Outputs

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

Calls

7 calls:

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

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	`phi1`
99.8%	1	`phi2`
99.8%	1	`delta`
99.8%	1	`theta`
99.8%	1	`lambda1`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes110.0ms (1.1%)

Memory

45.0MiB live, 229.1MiB allocated; 15ms collecting garbage

Counts

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes104.0ms (1%)

Memory

-11.4MiB live, 226.3MiB allocated; 15ms collecting garbage

Counts

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes100.0ms (1%)

Memory

-29.8MiB live, 218.5MiB allocated; 21ms collecting garbage

Counts

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

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:

19.0ms	phi2
18.0ms	lambda1
13.0ms	delta
12.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)))))))))
12.0ms	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes63.0ms (0.6%)

Memory

35.7MiB live, 129.5MiB allocated; 3ms collecting garbage

Counts

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

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
90.5%	1	`phi1`
90.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))))))))`
90.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)))))))))`
90.5%	1	`lambda1`
90.5%	1	`phi2`
94.1%	3	`delta`
90.5%	1	`theta`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes9.0ms (0.1%)

Memory

-25.7MiB live, 21.1MiB allocated; 2ms collecting garbage

Counts

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

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

Calls

1 calls:

7.0ms

delta

Results

Accuracy	Segments	Branch
94.0%	3	`delta`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes11.0ms (0.1%)

Memory

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

Counts

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

Outputs

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

Calls

2 calls:

5.0ms	delta
5.0ms	theta

Results

Accuracy	Segments	Branch
90.5%	1	`theta`
90.5%	1	`delta`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes33.0ms (0.3%)

Memory

-23.4MiB live, 73.3MiB allocated; 4ms collecting garbage

Counts

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes20.0ms (0.2%)

Memory

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

Outputs

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

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

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
80.4%	2	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
80.1%	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)))))))))`
77.6%	1	`lambda1`
77.6%	1	`phi1`
77.6%	1	`phi2`
82.0%	3	`theta`
81.5%	3	`delta`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes3.0ms (0%)

Memory

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

Outputs

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

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

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

Calls

1 calls:

2.0ms

theta

Results

Accuracy	Segments	Branch
82.0%	3	`theta`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes4.0ms (0%)

Memory

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

Counts

4 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

2 calls:

2.0ms

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

2.0ms

theta

Results

Accuracy	Segments	Branch
80.1%	2	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
81.9%	3	`theta`

Compiler

Compiled 32 to 27 computations (15.6% saved)

regimes8.0ms (0.1%)

Memory

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

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

Outputs

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

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

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

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	theta
2.0ms	delta

Results

Accuracy	Segments	Branch
81.2%	3	`delta`
76.9%	2	`(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))))))))`
76.2%	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)))))))))`
81.4%	3	`theta`

Compiler

Compiled 66 to 55 computations (16.7% saved)

regimes8.0ms (0.1%)

Memory

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

Counts

2 → 2

Calls

Call 1

Inputs

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

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

Outputs

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

#s(approx (+ 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

6 calls:

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

Results

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

Compiler

Compiled 36 to 47 computations (-30.6% saved)

regimes8.0ms (0.1%)

Memory

20.3MiB live, 20.3MiB 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	lambda1
1.0ms	theta
1.0ms	delta

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

bsearch92.0ms (0.9%)

Memory

-12.4MiB live, 177.7MiB allocated; 7ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
38.0ms	2.2777450596181571e-41	1.368474377161717e-30
47.0ms	-46181.878241477614	-1.5875779985895812e-25

Samples

69.0ms

336×

valid

Compiler

Compiled 1 947 to 1 291 computations (33.7% saved)

Precisions

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

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

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

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

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

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

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

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

adjust: 0.0ms (0% of total)

bsearch4.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
2.0ms	2.2777450596181571e-41	1.368474377161717e-30
2.0ms	-46181.878241477614	-1.5875779985895812e-25

Compiler

Compiled 2 157 to 1 417 computations (34.3% saved)

bsearch56.0ms (0.6%)

Memory

-40.7MiB live, 105.0MiB allocated; 6ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	predicate-same
1×	narrow-enough

Steps

Time	Left	Right
11.0ms	1.2040485809388078e-36	3.901237915417188e-33
40.0ms	-28026576306.222977	-2557222.4292643643

Samples

43.0ms

176×

valid

Compiler

Compiled 1 554 to 878 computations (43.5% saved)

Precisions

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

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

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

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

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

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

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

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

adjust: 0.0ms (0% of total)

bsearch91.0ms (0.9%)

Memory

15.3MiB live, 161.7MiB allocated; 6ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
44.0ms	7750706272346.72	16957092824182493000.0
41.0ms	-2557222.4292643643	-0.1188924182651714

Samples

72.0ms

288×

valid

Compiler

Compiled 2 394 to 1 327 computations (44.6% saved)

Precisions

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

ival-sin: 27.0ms (44.4% of total)

ival-cos: 19.0ms (31.2% of total)

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

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

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

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

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

adjust: 0.0ms (0% of total)

bsearch69.0ms (0.7%)

Memory

-15.5MiB live, 128.6MiB allocated; 5ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
33.0ms	7750706272346.72	16957092824182493000.0
30.0ms	-2557222.4292643643	-0.1188924182651714

Samples

53.0ms

224×

valid

Compiler

Compiled 2 304 to 1 273 computations (44.7% saved)

Precisions

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

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

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

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

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

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

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

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

adjust: 0.0ms (0% of total)

bsearch42.0ms (0.4%)

Memory

31.8MiB live, 78.8MiB allocated; 2ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
37.0ms	3.901237915417188e-33	1.1302655062336329e-17
1.0ms	-2557222.4292643643	-0.1188924182651714

Samples

31.0ms

160×

valid

Compiler

Compiled 2 354 to 1 247 computations (47% saved)

Precisions

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

ival-sin: 11.0ms (43.7% of total)

ival-cos: 6.0ms (23.8% of total)

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

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

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

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

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

adjust: 0.0ms (0% of total)

bsearch29.0ms (0.3%)

Memory

8.6MiB live, 55.5MiB allocated; 2ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
27.0ms	-4.934403533358679e-192	-2.1685972749447788e-194

Samples

22.0ms

112×

valid

Compiler

Compiled 708 to 430 computations (39.3% saved)

Precisions

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

ival-cos: 6.0ms (32.9% of total)

ival-sin: 6.0ms (32.9% of total)

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

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

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

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

adjust: 0.0ms (0% of total)

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

derivations409.0ms (4.1%)

Memory

-37.9MiB live, 444.8MiB allocated; 13ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 1 554 to 164 computations (89.4% saved)

preprocess106.0ms (1.1%)

Memory: 19.8MiB live, 209.9MiB allocated; 12ms collecting garbage
Remove: (abs phi2)
Compiler: Compiled 6 282 to 1 494 computations (76.2% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze1.3s (13%)

sample3.8s (38.1%)

explain374.0ms (3.7%)

preprocess226.0ms (2.3%)

eval0.0ms (0%)

prune1.0ms (0%)

series46.0ms (0.5%)

rewrite216.0ms (2.2%)

eval67.0ms (0.7%)

prune27.0ms (0.3%)

series142.0ms (1.4%)

rewrite234.0ms (2.3%)

eval186.0ms (1.9%)

prune49.0ms (0.5%)

series350.0ms (3.5%)

rewrite398.0ms (4%)

eval253.0ms (2.5%)

prune80.0ms (0.8%)

series65.0ms (0.7%)

rewrite274.0ms (2.7%)

eval113.0ms (1.1%)

prune99.0ms (1%)

regimes140.0ms (1.4%)

regimes175.0ms (1.7%)

regimes110.0ms (1.1%)

regimes104.0ms (1%)

regimes100.0ms (1%)

regimes63.0ms (0.6%)

regimes9.0ms (0.1%)

regimes11.0ms (0.1%)

regimes33.0ms (0.3%)

regimes20.0ms (0.2%)

regimes3.0ms (0%)

regimes4.0ms (0%)

regimes8.0ms (0.1%)

regimes8.0ms (0.1%)

regimes8.0ms (0.1%)

bsearch92.0ms (0.9%)

bsearch4.0ms (0%)

bsearch56.0ms (0.6%)

bsearch91.0ms (0.9%)

bsearch69.0ms (0.7%)

bsearch42.0ms (0.4%)

bsearch29.0ms (0.3%)

derivations409.0ms (4.1%)

preprocess106.0ms (1.1%)

end0.0ms (0%)

Profiling