Metrics for Destination given bearing on a great circle

start0.0ms (0%)

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

analyze1.3s (6.4%)

Memory

67.6MiB live, 1 982.0MiB allocated; 300ms 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)

sample4.1s (20.6%)

Memory

-16.1MiB live, 5 013.0MiB allocated; 2.5s collecting garbage

Samples

3.1s	8 255×	0	valid
2.0ms	1×	1	valid

Precisions

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

ival-cos: 986.0ms (36.1% of total)

ival-sin: 749.0ms (27.4% of total)

ival-mult: 520.0ms (19% of total)

ival-atan2: 191.0ms (7% of total)

ival-asin: 153.0ms (5.6% of total)

ival-add: 83.0ms (3% of total)

ival-sub: 43.0ms (1.6% of total)

adjust: 3.0ms (0.1% of total)

ival-assert: 3.0ms (0.1% of total)

Bogosity

explain362.0ms (1.8%)

Memory

35.6MiB live, 646.0MiB allocated; 55ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Underpredictions	Example	Subexpression
6	2	(-7.219549750905391e+156 4.1776246373021135e+34 4.9447202879713936e+22 -8.454044201580479e-221 2.587560999212788e-120)	1	(-1.4240768922759644e-176 8.049251065975363e+136 -1.6831859009426168e-31 -1.0652520121303797e+307 5.232718340890419e-120)	`(-.f64 (cos.f64 delta) (.f64 (sin.f64 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)`

Confusion

	Predicted +	Predicted -
+	0	0
-	0	256

Precision

0/0

Recall

0/0

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	0	0	0
-	0	3	253

Precision?

0.0

Recall?

0/0

Freqs

test

number	freq
0	256

Total Confusion?

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

Precision?

0.0

Recall?

0/0

Samples

156.0ms

512×

valid

Compiler

Compiled 431 to 73 computations (83.1% saved)

Precisions

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

ival-sin: 46.0ms (36% of total)

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

ival-mult: 18.0ms (14.1% of total)

ival-atan2: 12.0ms (9.4% of total)

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

ival-add: 5.0ms (3.9% of total)

ival-sub: 2.0ms (1.6% of total)

ival-true: 1.0ms (0.8% of total)

adjust: 0.0ms (0% of total)

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

preprocess215.0ms (1.1%)

Memory

-8.4MiB live, 270.3MiB allocated; 56ms 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 (sin.f64 (-.f64 (asin.f64 (fma.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -4 binary64) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))) (sin.f64 phi1) (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

2.2MiB live, 2.2MiB 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)

series65.0ms (0.3%)

Memory

6.1MiB live, 97.1MiB 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
25.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))
5.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	delta	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)) (* (cos phi1) (sin delta)) (cos theta))

rewrite203.0ms (1%)

Memory

25.9MiB live, 309.0MiB allocated; 44ms 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) (.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)))) (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))))))) (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 (fma.f64 (.f64 lambda1 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 3 binary64)))) (neg.f64 (fma.f64 (fabs.f64 lambda1) (fabs.f64 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)))) (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 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) (.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)))) (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 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 (fma.f64 (.f64 lambda1 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 3 binary64))) (fma.f64 (fabs.f64 lambda1) (fabs.f64 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)))) (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 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 (fma.f64 (cos.f64 theta) (cos.f64 delta) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 (+.f64 theta delta)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (-.f64 (fma.f64 (cos.f64 delta) (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64))
(/.f64 (-.f64 (fma.f64 (cos.f64 theta) (cos.f64 delta) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64))
(/.f64 (-.f64 (fma.f64 (cos.f64 delta) (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 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)) (.f64 (.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))))) (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 (neg.f64 (cos.f64 delta)) (neg.f64 (cos.f64 delta)) (fma.f64 (.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)) (.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)) (.f64 (.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)))) (+.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 (neg.f64 (cos.f64 delta)) (neg.f64 (cos.f64 delta)) (fma.f64 (.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)) (.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 (fma.f64 (cos.f64 phi1) (cos.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.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))) (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 (fma.f64 (cos.f64 phi1) (cos.f64 (asin.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.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))) (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 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (neg.f64 (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64)))))) (neg.f64 (fma.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 delta))) (-.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
(/.f64 (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64))))) (fma.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 delta))) (-.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))))
(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 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (neg.f64 (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64)))))) (neg.f64 (fma.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 delta))) (-.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
(/.f64 (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64))))) (fma.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 delta))) (-.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))))
(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)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 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)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 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)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 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 (fma.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 #s(literal 2 binary64))) (.f64 lambda1 #s(literal 2 binary64))) lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 (.f64 #s(literal -1 binary64) lambda1) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (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))))
#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 (.f64 (.f64 (cos.f64 delta) phi1) #s(literal -1 binary64)) (*.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 (.f64 #s(literal -1 binary64) phi1) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta) (.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 theta)) (sin.f64 delta)))) (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)))))) (fma.f64 (.f64 (cos.f64 delta) phi1) phi1 (.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta) (.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 theta)) (sin.f64 delta))) phi1 (cos.f64 delta)) phi1) phi1 (.f64 (.f64 phi1 (cos.f64 theta)) (sin.f64 delta))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (.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) phi1 (.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta))))
#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 (.f64 (.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) delta) #s(literal -1 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 (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 (fabs.f64 (sin.f64 phi1)) (fabs.f64 (sin.f64 phi1)) (fma.f64 (.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 (.f64 (.f64 (cos.f64 phi1) delta) (.f64 (cos.f64 theta) (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 (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 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 theta theta)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+.f64 (fma.f64 (-.f64 (.f64 (.f64 #s(literal -1/24 binary64) (.f64 theta theta)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1))) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 delta)))) (.f64 theta theta) (cos.f64 delta)) (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (fma.f64 (fma.f64 (-.f64 (.f64 (.f64 #s(literal 1/720 binary64) (.f64 theta theta)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 delta)))) (.f64 theta theta) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (cos.f64 phi1)))) (.f64 theta theta) (cos.f64 delta)) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))
#s(approx (* (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 phi1) (sin.f64 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 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.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)))))) (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 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.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)))))) (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 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (sin.f64 phi1))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (.f64 (.f64 theta theta) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 (.f64 theta theta) #s(literal 1/24 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 theta theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 (.f64 theta theta) #s(literal -1/720 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 theta theta))) (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (.f64 (.f64 theta theta) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 (.f64 theta theta) #s(literal 1/24 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 theta theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 (.f64 theta theta) #s(literal -1/720 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 theta theta))) (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (* (* (cos 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))

eval158.0ms (0.8%)

Memory: -42.4MiB live, 129.8MiB allocated; 138ms collecting garbage
Compiler: Compiled 13 154 to 1 982 computations (84.9% saved)

prune173.0ms (0.9%)

Memory

-11.0MiB live, 323.1MiB allocated; 9ms collecting garbage

Pruning

6 alts after pruning (6 fresh and 0 done)

	Pruned	Kept	Total
New	281	6	287
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	282	6	288

Accuracy

99.9%

Counts

288 → 6

Alt Table

Click to see full alt table

Status	Accuracy	Program
	50.8%	(/.f64 (fma.f64 (.f64 lambda1 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 3 binary64))) (fma.f64 (fabs.f64 lambda1) (fabs.f64 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)))) (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 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))))
▶	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (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))))) (.f64 (sin.f64 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.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 (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64))))) (fma.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 delta))) (-.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))))
▶	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 (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))))))))
▶	79.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
▶	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)))))))))

Compiler

Compiled 752 to 348 computations (53.7% saved)

series203.0ms (1%)

Memory

37.6MiB live, 414.5MiB allocated; 21ms collecting garbage

Counts

69 → 417

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

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 (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/2 (PI))) (* 2 (PI)))) (* 1/2 (PI)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/2 (PI))) (* 2 (PI)))) (* 1/2 (PI))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (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) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (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) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (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 (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (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 (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin 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))
#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 (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/2 (PI))) (* 2 (PI)))) (* 1/2 (PI))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (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 (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (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) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (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)) (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (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 (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/2 (PI))) (* 2 (PI)))) (* 1/2 (PI))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (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) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (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 (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) (* (sin phi1) (+ (* (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 (pow (cos phi1) 2) #s(hole binary64 1))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (+ 1 (* -1 (pow phi1 2)))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/2 (PI))) (* 2 (PI)))) (* 1/2 (PI)))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (sin (- (fabs (remainder (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/2 (PI))) (* 2 (PI)))) (* 1/2 (PI)))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* 1/6 (* (pow phi1 2) (sin (- (fabs (remainder (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/2 (PI))) (* 2 (PI)))) (* 1/2 (PI)))))) (sin (- (fabs (remainder (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/2 (PI))) (* 2 (PI)))) (* 1/2 (PI)))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* (pow phi1 2) (- (* -1/120 (* (pow phi1 2) (sin (- (fabs (remainder (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/2 (PI))) (* 2 (PI)))) (* 1/2 (PI)))))) (* -1/6 (sin (- (fabs (remainder (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/2 (PI))) (* 2 (PI)))) (* 1/2 (PI))))))) (sin (- (fabs (remainder (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/2 (PI))) (* 2 (PI)))) (* 1/2 (PI)))))))))
#s(approx (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)))) #s(hole binary64 (* phi1 (sin (- (fabs (remainder (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/2 (PI))) (* 2 (PI)))) (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (sin (- (fabs (remainder (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/2 (PI))) (* 2 (PI)))) (* 1/2 (PI)))) (* -1/6 (* (pow phi1 2) (sin (- (fabs (remainder (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/2 (PI))) (* 2 (PI)))) (* 1/2 (PI))))))))))
#s(approx (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (sin (- (fabs (remainder (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/2 (PI))) (* 2 (PI)))) (* 1/2 (PI)))) (* (pow phi1 2) (+ (* -1/6 (sin (- (fabs (remainder (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/2 (PI))) (* 2 (PI)))) (* 1/2 (PI))))) (* 1/120 (* (pow phi1 2) (sin (- (fabs (remainder (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/2 (PI))) (* 2 (PI)))) (* 1/2 (PI))))))))))))
#s(approx (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (sin (- (fabs (remainder (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/2 (PI))) (* 2 (PI)))) (* 1/2 (PI)))) (* (pow phi1 2) (+ (* -1/6 (sin (- (fabs (remainder (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/2 (PI))) (* 2 (PI)))) (* 1/2 (PI))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin (- (fabs (remainder (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/2 (PI))) (* 2 (PI)))) (* 1/2 (PI)))))) (* 1/120 (sin (- (fabs (remainder (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/2 (PI))) (* 2 (PI)))) (* 1/2 (PI)))))))))))))
#s(approx (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))) #s(hole binary64 (sin (- (fabs (remainder (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/2 (PI))) (* 2 (PI)))) (* 1/2 (PI))))))
#s(approx (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)) #s(hole binary64 (- (fabs (remainder (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/2 (PI))) (* 2 (PI)))) (* 1/2 (PI)))))
#s(approx (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) #s(hole binary64 (fabs (remainder (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/2 (PI))) (* 2 (PI))))))
#s(approx (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI))) #s(hole binary64 (remainder (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/2 (PI))) (* 2 (PI)))))
#s(approx (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) #s(hole binary64 (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/2 (PI)))))
#s(approx (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* phi1 (cos delta))))))) (* (cos theta) (sin delta)))))
#s(approx (* (cos 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 (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (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) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (cos delta)))
#s(approx (- (cos delta) (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (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 (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (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 (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (+ (* -1 (cos delta)) (* phi1 (- (+ (* -1 (* (cos theta) (sin delta))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (/ (pow (cos delta) 2) (* (cos theta) (sin delta))))) (+ (* -3/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta)))))))
#s(approx (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (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 (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) #s(hole binary64 (* phi1 (+ (* phi1 (- (* phi1 (- (+ (* -3/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))) (+ (* -1 (* (cos theta) (sin delta))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (/ (pow (cos delta) 2) (* (cos theta) (sin delta))))))) (* -1 (cos delta)))) (* (cos theta) (sin delta))))))
#s(approx (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) #s(hole binary64 (* phi1 (+ (* phi1 (- (* phi1 (- (+ (* -3/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* phi1 (- (/ (pow (cos delta) 3) (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1 (/ (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))) (* (cos theta) (sin delta)))) (+ (* -1 (/ (* (cos delta) (- (+ (* -3/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))) (+ (* -1 (* (cos theta) (sin delta))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (/ (pow (cos delta) 2) (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta)))) (/ (* (cos delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))) (* (pow (cos theta) 2) (pow (sin delta) 2))))))))) (+ (* -1 (* (cos theta) (sin delta))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (/ (pow (cos delta) 2) (* (cos theta) (sin delta))))))) (* -1 (cos delta)))) (* (cos theta) (sin delta))))))
#s(approx (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -3/2 (* (cos theta) (sin delta))) (+ (* -1 (* (cos theta) (sin delta))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (/ (pow (cos delta) 2) (* (cos theta) (sin delta))))))) (* -1 (cos delta)))) (* (cos theta) (sin delta)))))
#s(approx (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -3/2 (* (cos theta) (sin delta))) (* phi1 (- (/ (pow (cos delta) 3) (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1 (/ (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))) (* (cos theta) (sin delta)))) (+ (* -1 (/ (* (cos delta) (- (* -3/2 (* (cos theta) (sin delta))) (+ (* -1 (* (cos theta) (sin delta))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (/ (pow (cos delta) 2) (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta)))) (/ (* (cos delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))) (* (pow (cos theta) 2) (pow (sin delta) 2)))))))) (+ (* -1 (* (cos theta) (sin delta))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (/ (pow (cos delta) 2) (* (cos theta) (sin delta))))))) (* -1 (cos delta)))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) #s(hole binary64 (* (pow (cos theta) 3) (pow (sin delta) 3))))
#s(approx (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) #s(hole binary64 (+ (* -3/2 (* (pow phi1 2) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (* (pow (cos theta) 3) (pow (sin delta) 3)))))
#s(approx (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos theta) 3) (pow (sin delta) 3))) (* phi1 (pow (cos delta) 3)))) (* (pow (cos theta) 3) (pow (sin delta) 3)))))
#s(approx (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos theta) 3) (pow (sin delta) 3))) (* phi1 (+ (* 7/8 (* phi1 (* (pow (cos theta) 3) (pow (sin delta) 3)))) (pow (cos delta) 3))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))))
#s(approx (pow (sin phi1) 3) #s(hole binary64 (pow phi1 3)))
#s(approx (pow (sin phi1) 3) #s(hole binary64 (* (pow phi1 3) (+ 1 (* -1/2 (pow phi1 2))))))
#s(approx (pow (sin phi1) 3) #s(hole binary64 (* (pow phi1 3) (+ 1 (* (pow phi1 2) (- (* 13/120 (pow phi1 2)) 1/2))))))
#s(approx (pow (sin phi1) 3) #s(hole binary64 (* (pow phi1 3) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 13/120 (* -41/3024 (pow phi1 2)))) 1/2))))))
#s(approx (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))) #s(hole binary64 (* (pow (cos theta) 3) (pow (sin delta) 3))))
#s(approx (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))) #s(hole binary64 (+ (* -3/2 (* (pow phi1 2) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (* (pow (cos theta) 3) (pow (sin delta) 3)))))
#s(approx (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos theta) 3) (pow (sin delta) 3))) (* 7/8 (* (pow phi1 2) (* (pow (cos theta) 3) (pow (sin delta) 3)))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))))
#s(approx (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos theta) 3) (pow (sin delta) 3))) (* (pow phi1 2) (+ (* -61/240 (* (pow phi1 2) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (* 7/8 (* (pow (cos theta) 3) (pow (sin delta) 3))))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))))
#s(approx (pow (cos phi1) 3) #s(hole binary64 1))
#s(approx (pow (cos phi1) 3) #s(hole binary64 (+ 1 (* -3/2 (pow phi1 2)))))
#s(approx (pow (cos phi1) 3) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 7/8 (pow phi1 2)) 3/2)))))
#s(approx (pow (cos phi1) 3) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 7/8 (* -61/240 (pow phi1 2)))) 3/2)))))
#s(approx (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) #s(hole binary64 (* (pow (cos theta) 2) (pow (sin delta) 2))))
#s(approx (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))))
#s(approx (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))) (* (cos delta) (* (cos theta) (sin delta))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))))
#s(approx (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (+ (* -1 (* phi1 (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))))
#s(approx (neg (* (sin phi1) (cos delta))) #s(hole binary64 (* -1 (* phi1 (cos delta)))))
#s(approx (neg (* (sin phi1) (cos delta))) #s(hole binary64 (* phi1 (- (* 1/6 (* (pow phi1 2) (cos delta))) (cos delta)))))
#s(approx (neg (* (sin phi1) (cos delta))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* -1/120 (* (pow phi1 2) (cos delta))) (* -1/6 (cos delta)))) (cos delta)))))
#s(approx (neg (* (sin phi1) (cos delta))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* (pow phi1 2) (- (* 1/5040 (* (pow phi1 2) (cos delta))) (* 1/120 (cos delta)))) (* -1/6 (cos delta)))) (cos delta)))))
#s(approx (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (* (pow (cos theta) 2) (pow (sin delta) 2))))
#s(approx (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))))
#s(approx (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (+ (* phi1 (- (* -1 (* phi1 (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos theta) (sin delta))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))))
#s(approx (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (+ (* -1 (* phi1 (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* (cos delta) (* (cos theta) (sin delta))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (* (pow (cos theta) 2) (pow (sin delta) 2))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) #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 (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) #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 (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) #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 (* 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) (* (cos theta) (sin delta))) (* (pow phi1 2) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (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))) (* (pow phi1 2) (+ (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))) (* (pow phi1 2) (* (cos delta) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (* 1/12 (* (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))) (* (pow phi1 2) (+ (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))) (* (pow phi1 2) (+ (* (cos delta) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (* 1/12 (* (cos theta) (sin delta)))))) (* (pow phi1 2) (* (cos delta) (+ (* -1/144 (* (cos theta) (sin delta))) (+ (* -1/240 (* (cos theta) (sin delta))) (+ (* -1/720 (* (cos theta) (sin delta))) (* -1/5040 (* (cos theta) (sin delta))))))))))))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (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 (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))
#s(approx (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos theta) (sin delta)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))
#s(approx (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))
#s(approx (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (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 (pow (cos phi1) 2) #s(hole binary64 (pow (cos phi1) 2)))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/2 (PI))) (* 2 (PI)))) (* 1/2 (PI))))))))
#s(approx (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/2 (PI))) (* 2 (PI)))) (* 1/2 (PI)))))))
#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 (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (- (cos delta) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))))
#s(approx (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) #s(hole binary64 (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
#s(approx (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) #s(hole binary64 (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))))
#s(approx (pow (sin phi1) 3) #s(hole binary64 (pow (sin phi1) 3)))
#s(approx (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))) #s(hole binary64 (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))
#s(approx (pow (cos phi1) 3) #s(hole binary64 (pow (cos phi1) 3)))
#s(approx (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (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) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
#s(approx (neg (* (sin phi1) (cos delta))) #s(hole binary64 (* -1 (* (cos delta) (sin phi1)))))
#s(approx (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (- (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) #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) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
#s(approx (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
#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 (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))) #s(hole binary64 (- 1 (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/2 (PI))) (* 2 (PI)))) (* 1/2 (PI))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))) #s(hole binary64 (- (+ 1 (* -1/2 (pow delta 2))) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/2 (PI))) (* 2 (PI)))) (* 1/2 (PI))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/2 (PI))) (* 2 (PI)))) (* 1/2 (PI))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))) #s(hole binary64 (- (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2))) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (* 1/2 (PI))) (* 2 (PI)))) (* 1/2 (PI))))))))
#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 (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (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 (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (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 (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (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 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (+ 1/2 (* -3/2 (pow (sin phi1) 2)))))))) (pow (sin phi1) 2))))
#s(approx (- (cos delta) (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (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 (pow (sin phi1) 2)) (+ (* delta (- (+ (* -1 (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (* -1 (/ (* (cos phi1) (* (cos theta) (- (* -3/2 (pow (sin phi1) 2)) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (sin phi1))) (/ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (sin phi1)))) (/ (* (pow (cos phi1) 3) (pow (cos theta) 3)) (sin phi1)))) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ 1/2 (* -3/2 (pow (sin phi1) 2)))))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (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 (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) #s(hole binary64 (+ (* delta (- (* delta (- (* -3/2 (pow (sin phi1) 2)) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) #s(hole binary64 (+ (* delta (- (* delta (- (+ (* -3/2 (pow (sin phi1) 2)) (* delta (- (/ (* (pow (cos phi1) 3) (pow (cos theta) 3)) (sin phi1)) (+ (* -1 (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (* -1 (/ (* (cos phi1) (* (cos theta) (- (* -3/2 (pow (sin phi1) 2)) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (sin phi1))) (/ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (sin phi1))))))) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (sin phi1)))
#s(approx (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (+ (sin phi1) (* delta (- (* delta (- (* -3/2 (sin phi1)) (+ (* -1 (sin phi1)) (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1))) (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1)))))) (* -1 (* (cos phi1) (cos theta))))))))
#s(approx (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (+ (sin phi1) (* delta (- (* delta (- (+ (* -3/2 (sin phi1)) (* delta (- (/ (* (pow (cos phi1) 3) (pow (cos theta) 3)) (pow (sin phi1) 2)) (+ (* -1 (/ (* (cos phi1) (* (cos theta) (- (* -3/2 (sin phi1)) (+ (* -1 (sin phi1)) (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1))) (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1))))))) (sin phi1))) (+ (* -1 (/ (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1))))) (sin phi1))) (/ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (pow (sin phi1) 2))))))) (+ (* -1 (sin phi1)) (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1))) (/ (* (pow (cos phi1) 2) (pow (cos theta) 2)) (sin phi1)))))) (* -1 (* (cos phi1) (cos theta))))))))
#s(approx (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) #s(hole binary64 (pow (sin phi1) 3)))
#s(approx (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) #s(hole binary64 (+ (* -3/2 (* (pow delta 2) (pow (sin phi1) 3))) (pow (sin phi1) 3))))
#s(approx (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) #s(hole binary64 (+ (* (pow delta 2) (+ (* -3/2 (pow (sin phi1) 3)) (* delta (* (pow (cos phi1) 3) (pow (cos theta) 3))))) (pow (sin phi1) 3))))
#s(approx (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) #s(hole binary64 (+ (* (pow delta 2) (+ (* -3/2 (pow (sin phi1) 3)) (* delta (+ (* 7/8 (* delta (pow (sin phi1) 3))) (* (pow (cos phi1) 3) (pow (cos theta) 3)))))) (pow (sin phi1) 3))))
#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 (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))) #s(hole binary64 (* (pow delta 3) (* (pow (cos phi1) 3) (pow (cos theta) 3)))))
#s(approx (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))) #s(hole binary64 (* (pow delta 3) (+ (* -1/2 (* (pow delta 2) (* (pow (cos phi1) 3) (pow (cos theta) 3)))) (* (pow (cos phi1) 3) (pow (cos theta) 3))))))
#s(approx (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))) #s(hole binary64 (* (pow delta 3) (+ (* (pow delta 2) (+ (* -1/2 (* (pow (cos phi1) 3) (pow (cos theta) 3))) (* 13/120 (* (pow delta 2) (* (pow (cos phi1) 3) (pow (cos theta) 3)))))) (* (pow (cos phi1) 3) (pow (cos theta) 3))))))
#s(approx (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))) #s(hole binary64 (* (pow delta 3) (+ (* (pow delta 2) (+ (* -1/2 (* (pow (cos phi1) 3) (pow (cos theta) 3))) (* (pow delta 2) (+ (* -41/3024 (* (pow delta 2) (* (pow (cos phi1) 3) (pow (cos theta) 3)))) (* 13/120 (* (pow (cos phi1) 3) (pow (cos theta) 3))))))) (* (pow (cos phi1) 3) (pow (cos theta) 3))))))
#s(approx (* (pow (cos theta) 3) (pow (sin delta) 3)) #s(hole binary64 (* (pow delta 3) (pow (cos theta) 3))))
#s(approx (* (pow (cos theta) 3) (pow (sin delta) 3)) #s(hole binary64 (* (pow delta 3) (+ (* -1/2 (* (pow delta 2) (pow (cos theta) 3))) (pow (cos theta) 3)))))
#s(approx (* (pow (cos theta) 3) (pow (sin delta) 3)) #s(hole binary64 (* (pow delta 3) (+ (* (pow delta 2) (+ (* -1/2 (pow (cos theta) 3)) (* 13/120 (* (pow delta 2) (pow (cos theta) 3))))) (pow (cos theta) 3)))))
#s(approx (* (pow (cos theta) 3) (pow (sin delta) 3)) #s(hole binary64 (* (pow delta 3) (+ (* (pow delta 2) (+ (* -1/2 (pow (cos theta) 3)) (* (pow delta 2) (+ (* -41/3024 (* (pow delta 2) (pow (cos theta) 3))) (* 13/120 (pow (cos theta) 3)))))) (pow (cos theta) 3)))))
#s(approx (pow (sin delta) 3) #s(hole binary64 (pow delta 3)))
#s(approx (pow (sin delta) 3) #s(hole binary64 (* (pow delta 3) (+ 1 (* -1/2 (pow delta 2))))))
#s(approx (pow (sin delta) 3) #s(hole binary64 (* (pow delta 3) (+ 1 (* (pow delta 2) (- (* 13/120 (pow delta 2)) 1/2))))))
#s(approx (pow (sin delta) 3) #s(hole binary64 (* (pow delta 3) (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 13/120 (* -41/3024 (pow delta 2)))) 1/2))))))
#s(approx (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) #s(hole binary64 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) #s(hole binary64 (+ (* delta (- (* delta (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) #s(hole binary64 (+ (* delta (- (* delta (+ (* -1 (* delta (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1))))))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (neg (* (sin phi1) (cos delta))) #s(hole binary64 (* -1 (sin phi1))))
#s(approx (neg (* (sin phi1) (cos delta))) #s(hole binary64 (- (* 1/2 (* (pow delta 2) (sin phi1))) (sin phi1))))
#s(approx (neg (* (sin phi1) (cos delta))) #s(hole binary64 (- (* (pow delta 2) (- (* -1/24 (* (pow delta 2) (sin phi1))) (* -1/2 (sin phi1)))) (sin phi1))))
#s(approx (neg (* (sin phi1) (cos delta))) #s(hole binary64 (- (* (pow delta 2) (- (* (pow delta 2) (- (* 1/720 (* (pow delta 2) (sin phi1))) (* 1/24 (sin phi1)))) (* -1/2 (sin phi1)))) (sin phi1))))
#s(approx (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))))
#s(approx (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (* delta (- (* delta (* (pow (cos phi1) 2) (pow (cos theta) 2))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
#s(approx (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (* delta (- (* delta (+ (* -1 (* delta (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
#s(approx (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (* delta (- (* delta (+ (* delta (- (* -1/3 (* delta (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (* (pow delta 2) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) #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 (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) #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 (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) #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 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1))))))))))
#s(approx (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow delta 2) (+ (* 1/120 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* 1/24 (* (cos phi1) (* (cos theta) (sin phi1)))) (* 1/12 (* (cos phi1) (* (cos theta) (sin phi1))))))))))))))
#s(approx (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow delta 2) (+ (* 1/120 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* 1/24 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* 1/12 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow delta 2) (+ (* -1/144 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/240 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/720 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/5040 (* (cos phi1) (* (cos theta) (sin phi1)))))))))))))))))))
#s(approx (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (sin (* 1/2 (PI))) (pow (sin phi1) 2))))
#s(approx (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (sin (* 1/2 (PI))) (* delta (- (cos (* 1/2 (PI))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (sin (* 1/2 (PI))) (* delta (- (+ (cos (* 1/2 (PI))) (* delta (- (* -1/2 (sin (* 1/2 (PI)))) (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (sin (* 1/2 (PI))) (* delta (- (+ (cos (* 1/2 (PI))) (* delta (- (+ (* -1/2 (sin (* 1/2 (PI)))) (* delta (- (* -1/6 (cos (* 1/2 (PI)))) (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1))))))) (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))))
#s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* delta (cos (* 1/2 (PI)))))))
#s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (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) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (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 (* (cos delta) (sin (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (* (cos delta) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1/2 (* (pow delta 2) (sin (* 1/2 (PI))))))))
#s(approx (* (cos delta) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow delta 2) (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/24 (* (pow delta 2) (sin (* 1/2 (PI))))))))))
#s(approx (* (cos delta) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow delta 2) (+ (* -1/2 (sin (* 1/2 (PI)))) (* (pow delta 2) (+ (* -1/720 (* (pow delta 2) (sin (* 1/2 (PI))))) (* 1/24 (sin (* 1/2 (PI)))))))))))
#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 (pow (cos delta) 3) #s(hole binary64 (pow (cos delta) 3)))
#s(approx (* (pow (cos theta) 3) (pow (sin delta) 3)) #s(hole binary64 (* (pow (cos theta) 3) (pow (sin delta) 3))))
#s(approx (pow (sin delta) 3) #s(hole binary64 (pow (sin delta) 3)))
#s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))
#s(approx (* (cos delta) (sin (/ (PI) 2))) #s(hole binary64 (* (cos delta) (sin (* 1/2 (PI))))))
#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 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 (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (- (cos delta) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))
#s(approx (- (cos delta) (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))
#s(approx (- (cos delta) (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -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))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* 7/8 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))
#s(approx (- (cos delta) (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -2/45 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (+ (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (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))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (/ (* (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* 7/8 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -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))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (* -61/240 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (+ (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -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))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (* 7/8 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))
#s(approx (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) #s(hole binary64 (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))
#s(approx (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) #s(hole binary64 (+ (* (pow theta 2) (- (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)))) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))
#s(approx (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (pow theta 2) (- (* 7/8 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -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))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))) (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)))) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))
#s(approx (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (pow theta 2) (- (+ (* 7/8 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (pow theta 2) (- (* -61/240 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -2/45 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (+ (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (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))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (/ (* (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* 7/8 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -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))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))))) (+ (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (* (pow (sin delta) 3) (sin phi1))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -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))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))) (/ (* (sin phi1) (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)))) (/ (* (sin phi1) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))
#s(approx (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))
#s(approx (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (+ (* (pow theta 2) (- (* -3/2 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)))) (+ (/ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* -3/2 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (pow theta 2) (- (* 7/8 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -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))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))) (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)))) (+ (/ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* -3/2 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (pow theta 2) (- (+ (* 7/8 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (pow theta 2) (- (* -61/240 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -2/45 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (+ (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (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))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (/ (* (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* 7/8 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -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))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))))) (+ (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)) (/ (* (- (* -3/2 (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -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))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))) (/ (* (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (pow (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) 2)))) (+ (/ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (/ (* (pow (cos phi1) 3) (pow (sin delta) 3)) (- (+ (* (pow (cos delta) 2) (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) #s(hole binary64 (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))
#s(approx (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) #s(hole binary64 (+ (* -3/2 (* (pow theta 2) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))))))
#s(approx (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) #s(hole binary64 (+ (* (pow theta 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (sin delta) 3))) (* 7/8 (* (pow theta 2) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))))))
#s(approx (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) #s(hole binary64 (+ (* (pow theta 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (sin delta) 3))) (* (pow theta 2) (+ (* -61/240 (* (pow theta 2) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (* 7/8 (* (pow (cos phi1) 3) (pow (sin delta) 3))))))) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (pow (sin delta) 3))))))
#s(approx (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))) #s(hole binary64 (* (pow (cos phi1) 3) (pow (sin delta) 3))))
#s(approx (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))) #s(hole binary64 (+ (* -3/2 (* (pow theta 2) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))
#s(approx (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))) #s(hole binary64 (+ (* (pow theta 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (sin delta) 3))) (* 7/8 (* (pow theta 2) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))
#s(approx (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))) #s(hole binary64 (+ (* (pow theta 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (sin delta) 3))) (* (pow theta 2) (+ (* -61/240 (* (pow theta 2) (* (pow (cos phi1) 3) (pow (sin delta) 3)))) (* 7/8 (* (pow (cos phi1) 3) (pow (sin delta) 3))))))) (* (pow (cos phi1) 3) (pow (sin delta) 3)))))
#s(approx (* (pow (cos theta) 3) (pow (sin delta) 3)) #s(hole binary64 (pow (sin delta) 3)))
#s(approx (* (pow (cos theta) 3) (pow (sin delta) 3)) #s(hole binary64 (+ (* -3/2 (* (pow theta 2) (pow (sin delta) 3))) (pow (sin delta) 3))))
#s(approx (* (pow (cos theta) 3) (pow (sin delta) 3)) #s(hole binary64 (+ (* (pow theta 2) (+ (* -3/2 (pow (sin delta) 3)) (* 7/8 (* (pow theta 2) (pow (sin delta) 3))))) (pow (sin delta) 3))))
#s(approx (* (pow (cos theta) 3) (pow (sin delta) 3)) #s(hole binary64 (+ (* (pow theta 2) (+ (* -3/2 (pow (sin delta) 3)) (* (pow theta 2) (+ (* -61/240 (* (pow theta 2) (pow (sin delta) 3))) (* 7/8 (pow (sin delta) 3)))))) (pow (sin delta) 3))))
#s(approx (pow (cos theta) 3) #s(hole binary64 1))
#s(approx (pow (cos theta) 3) #s(hole binary64 (+ 1 (* -3/2 (pow theta 2)))))
#s(approx (pow (cos theta) 3) #s(hole binary64 (+ 1 (* (pow theta 2) (- (* 7/8 (pow theta 2)) 3/2)))))
#s(approx (pow (cos theta) 3) #s(hole binary64 (+ 1 (* (pow theta 2) (- (* (pow theta 2) (+ 7/8 (* -61/240 (pow theta 2)))) 3/2)))))
#s(approx (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (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) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -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)))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (pow theta 2) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (* -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)))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (pow theta 2) (- (+ (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (pow theta 2) (- (* -2/45 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (* -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)))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (sin delta) 2)) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (pow theta 2) (- (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (pow theta 2) (- (+ (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (pow theta 2) (- (* -2/45 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (* (pow (cos phi1) 2) (pow (sin delta) 2))))
#s(approx (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) #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 (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) #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 (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) #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) (* (cos phi1) (* (sin delta) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))
#s(approx (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (+ (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (pow theta 2) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) #s(hole binary64 (+ (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))))))
#s(approx (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (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))))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (* (cos delta) (sin (* 1/2 (PI)))) (+ (* (cos (* 1/2 (PI))) (sin 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 (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (* (cos delta) (sin (* 1/2 (PI)))) (+ (* (cos (* 1/2 (PI))) (sin delta)) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (sin theta) #s(hole binary64 (sin theta)))
#s(approx (cos theta) #s(hole binary64 (cos theta)))
#s(approx (pow (cos theta) 3) #s(hole binary64 (pow (cos theta) 3)))

Calls

15 calls:

Time	Variable		Point	Expression
29.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))))))))) (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))))))) (pow (cos phi1) 2) 2 (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)))))) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)))) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))) (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)) (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI))) (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (* (cos theta) (* (cos phi1) (sin delta))) (/ (PI) 2) (PI) (* 2 (PI)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))))) (- (cos delta) (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (pow (cos delta) 3) 3 (pow (sin phi1) 3) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))) (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)) (pow (cos theta) 3) (pow (sin delta) 3) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) (neg (* (sin phi1) (cos delta))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (* (cos delta) (sin (/ (PI) 2))) (sin (/ (PI) 2)))
23.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))))))))) (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))))))) (pow (cos phi1) 2) 2 (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)))))) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)))) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))) (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)) (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI))) (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (* (cos theta) (* (cos phi1) (sin delta))) (/ (PI) 2) (PI) (* 2 (PI)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))))) (- (cos delta) (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (pow (cos delta) 3) 3 (pow (sin phi1) 3) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))) (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)) (pow (cos theta) 3) (pow (sin delta) 3) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) (neg (* (sin phi1) (cos delta))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (* (cos delta) (sin (/ (PI) 2))) (sin (/ (PI) 2)))
20.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))))))))) (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))))))) (pow (cos phi1) 2) 2 (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)))))) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)))) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))) (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)) (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI))) (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (* (cos theta) (* (cos phi1) (sin delta))) (/ (PI) 2) (PI) (* 2 (PI)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))))) (- (cos delta) (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (pow (cos delta) 3) 3 (pow (sin phi1) 3) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))) (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)) (pow (cos theta) 3) (pow (sin delta) 3) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) (neg (* (sin phi1) (cos delta))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (* (cos delta) (sin (/ (PI) 2))) (sin (/ (PI) 2)))
18.0ms	theta	@	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))))))))) (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))))))) (pow (cos phi1) 2) 2 (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)))))) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)))) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))) (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)) (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI))) (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (* (cos theta) (* (cos phi1) (sin delta))) (/ (PI) 2) (PI) (* 2 (PI)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))))) (- (cos delta) (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (pow (cos delta) 3) 3 (pow (sin phi1) 3) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))) (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)) (pow (cos theta) 3) (pow (sin delta) 3) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) (neg (* (sin phi1) (cos delta))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (* (cos delta) (sin (/ (PI) 2))) (sin (/ (PI) 2)))
18.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))))))))) (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))))))) (pow (cos phi1) 2) 2 (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)))))) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)))) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))) (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)) (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI))) (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (* (cos theta) (* (cos phi1) (sin delta))) (/ (PI) 2) (PI) (* 2 (PI)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))))) (- (cos delta) (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))))) (* (sin phi1) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))))) (/ (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))))) (+ (* (pow (cos delta) 3) (pow (sin phi1) 3)) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (pow (cos delta) 3) 3 (pow (sin phi1) 3) (* (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))) (pow (cos phi1) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)) (pow (cos theta) 3) (pow (sin delta) 3) (+ (* (neg (* (sin phi1) (cos delta))) (neg (* (sin phi1) (cos delta)))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))))) (neg (* (sin phi1) (cos delta))) (- (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (* (* (cos theta) (* (cos phi1) (sin delta))) (* (cos theta) (* (cos phi1) (sin delta)))) (* (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (* (cos delta) (sin (/ (PI) 2))) (sin (/ (PI) 2)))

rewrite259.0ms (1.3%)

Memory

-28.8MiB live, 445.7MiB allocated; 37ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1843	28212
0	1994	24911
0	8266	24327

Stop Event

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

Counts

486 → 581

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

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

eval264.0ms (1.3%)

Memory: 31.6MiB live, 549.7MiB allocated; 49ms collecting garbage
Compiler: Compiled 114 843 to 8 078 computations (93% saved)

prune1.2s (5.8%)

Memory

1.6MiB live, 2 295.9MiB allocated; 156ms collecting garbage

Pruning

6 alts after pruning (3 fresh and 3 done)

	Pruned	Kept	Total
New	1 391	3	1 394
Fresh	1	0	1
Picked	2	3	5
Done	0	0	0
Total	1 394	6	1 400

Accuracy

99.9%

Counts

1 400 → 6

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	99.8%	(+.f64 #s(approx lambda1 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 (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))))))))
✓	94.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 (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64))))) (fma.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 delta))) (-.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))))
▶	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
✓	79.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
▶	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 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))))))))))
✓	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)))))))))

Compiler

Compiled 360 to 186 computations (48.3% saved)

series230.0ms (1.1%)

Memory

26.9MiB live, 264.7MiB allocated; 26ms collecting garbage

Counts

60 → 328

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable		Point	Expression
51.0ms	phi1	@	-inf	((+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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 (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (pow (cos delta) 3) (cos delta) 3 (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (* (cos phi1) (sin delta)) (cos theta)) (cos theta) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (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 delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta))) (sin (* 1/2 (PI))) (* 1/2 (PI)) 1/2 (PI) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta)) (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (+ (* 1/2 (PI)) (/ (PI) 2)) (/ (PI) 2) 2 (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (sin phi1) (cos delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)))))) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)))) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))) (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)) (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI))) (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (* (cos theta) (* (cos phi1) (sin delta))) (* 2 (PI)))
33.0ms	delta	@	inf	((+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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 (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (pow (cos delta) 3) (cos delta) 3 (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (* (cos phi1) (sin delta)) (cos theta)) (cos theta) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (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 delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta))) (sin (* 1/2 (PI))) (* 1/2 (PI)) 1/2 (PI) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta)) (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (+ (* 1/2 (PI)) (/ (PI) 2)) (/ (PI) 2) 2 (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (sin phi1) (cos delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)))))) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)))) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))) (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)) (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI))) (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (* (cos theta) (* (cos phi1) (sin delta))) (* 2 (PI)))
31.0ms	theta	@	-inf	((+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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 (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (pow (cos delta) 3) (cos delta) 3 (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (* (cos phi1) (sin delta)) (cos theta)) (cos theta) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (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 delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta))) (sin (* 1/2 (PI))) (* 1/2 (PI)) 1/2 (PI) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta)) (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (+ (* 1/2 (PI)) (/ (PI) 2)) (/ (PI) 2) 2 (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (sin phi1) (cos delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)))))) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)))) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))) (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)) (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI))) (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (* (cos theta) (* (cos phi1) (sin delta))) (* 2 (PI)))
28.0ms	theta	@	0	((+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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 (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (pow (cos delta) 3) (cos delta) 3 (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (* (cos phi1) (sin delta)) (cos theta)) (cos theta) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (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 delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta))) (sin (* 1/2 (PI))) (* 1/2 (PI)) 1/2 (PI) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta)) (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (+ (* 1/2 (PI)) (/ (PI) 2)) (/ (PI) 2) 2 (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (sin phi1) (cos delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)))))) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)))) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))) (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)) (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI))) (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (* (cos theta) (* (cos phi1) (sin delta))) (* 2 (PI)))
12.0ms	delta	@	-inf	((+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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 (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (pow (cos delta) 3) (cos delta) 3 (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (* (cos phi1) (sin delta)) (cos theta)) (cos theta) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (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 delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta))) (sin (* 1/2 (PI))) (* 1/2 (PI)) 1/2 (PI) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta)) (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (+ (* 1/2 (PI)) (/ (PI) 2)) (/ (PI) 2) 2 (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (sin phi1) (cos delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)))))) (- (cos delta) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))))) (* (sin phi1) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)))) (sin (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2))) (- (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (/ (PI) 2)) (fabs (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI)))) (remainder (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (* 2 (PI))) (+ (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (/ (PI) 2)) (asin (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta))))) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (* (cos theta) (* (cos phi1) (sin delta))) (* 2 (PI)))

rewrite341.0ms (1.7%)

Memory

-23.6MiB live, 362.8MiB allocated; 26ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1510	24053
0	1632	20999
0	8463	20149

Stop Event

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

Counts

388 → 497

Calls

Call 1

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

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

eval306.0ms (1.5%)

Memory: 7.2MiB live, 618.9MiB allocated; 52ms collecting garbage
Compiler: Compiled 120 674 to 7 018 computations (94.2% saved)

prune1.2s (6%)

Memory

75.5MiB live, 2 134.7MiB allocated; 274ms collecting garbage

Pruning

7 alts after pruning (6 fresh and 1 done)

	Pruned	Kept	Total
New	1 193	6	1 199
Fresh	0	0	0
Picked	3	0	3
Done	2	1	3
Total	1 198	7	1 205

Accuracy

100.0%

Counts

1 205 → 7

Alt Table

Click to see full alt table

Status	Accuracy	Program
	99.8%	(+.f64 #s(approx lambda1 lambda1) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (.f64 (sin.f64 (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))))) #s(literal 0 binary64)) (.f64 (cos.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))))) #s(literal 1 binary64)))))))
▶	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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))))))))))
✓	94.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 (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64))))) (fma.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 delta))) (-.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))))
▶	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 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 (/.f64 (-.f64 (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64))) (.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))) (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))))))))))
▶	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 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))) (/.f64 (+.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (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)))))) #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 (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)))))) (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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (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)))))))))))))
▶	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 3 binary64)) (.f64 (.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 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))) (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))))))))))
▶	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (cos.f64 delta)) (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))))))))))

Compiler

Compiled 1 876 to 453 computations (75.9% saved)

series480.0ms (2.4%)

Memory

2.7MiB live, 859.0MiB allocated; 83ms collecting garbage

Counts

79 → 552

Calls

Call 1

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

Outputs
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2)))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))))))
#s(approx lambda1 #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2)))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 3))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 3)))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2)))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2)))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 3)))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 3)))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))) lambda1)) 1)))))
#s(approx (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2)))))))
#s(approx (* (* (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 (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (cos delta)))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (+ (cos delta) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta)))))) (* (cos theta) (sin delta)))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* phi1 (- (* -1 (/ (* (pow (cos theta) 3) (pow (sin delta) 3)) (pow (cos delta) 2))) (+ (* -1 (/ (* (cos theta) (* (sin delta) (+ (cos delta) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta)))))) (cos delta))) (+ (* -1 (/ (* (cos theta) (* (sin delta) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))) (pow (cos delta) 2))) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* 2 (* (cos theta) (sin delta))))))))) (+ (cos delta) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta)))))) (* (cos theta) (sin delta)))))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (pow (cos delta) 3)))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 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) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 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) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (+ (* (pow phi1 3) (- (* phi1 (- (* -1 (* phi1 (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))))) (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (pow (cos delta) 3))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) #s(hole binary64 (* (pow phi1 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 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 (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* phi1 (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 3) (pow (sin delta) 3))))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* phi1 (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (+ (* phi1 (+ (* -1 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* -1/2 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (+ (* -1/6 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))) (* (cos theta) (* (sin delta) (+ (* -1 (* (cos delta) (* (cos theta) (sin delta)))) (* -1/3 (* (cos delta) (* (cos theta) (sin delta)))))))))))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 3) (pow (sin delta) 3))))))
#s(approx (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (sin phi1) (+ (* (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 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 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 phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* phi1 (cos delta))))))) (* (cos theta) (sin delta)))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* (cos theta) (sin delta)))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* 1/24 (* (pow phi1 2) (* (cos theta) (sin delta)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* 1/24 (* (cos theta) (sin delta))))))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (pow (cos delta) 2)))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* phi1 (* (cos delta) (* (cos theta) (sin delta)))) (pow (cos delta) 2))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))) (* (cos delta) (* (cos theta) (sin delta))))) (pow (cos delta) 2))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta))))) (pow (cos delta) 2))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (+ (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (pow (cos delta) 2)) (pow (cos delta) 2))))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* phi1 (+ (* phi1 (pow (cos delta) 2)) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (pow (cos delta) 2))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/3 (* phi1 (pow (cos delta) 2))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (pow (cos delta) 2))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2)))))))
#s(approx (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (cos delta)))
#s(approx (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (+ (cos delta) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta)))))) (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* phi1 (- (* -1 (/ (* (pow (cos theta) 3) (pow (sin delta) 3)) (pow (cos delta) 2))) (+ (* -1 (/ (* (cos theta) (* (sin delta) (+ (cos delta) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta)))))) (cos delta))) (+ (* -1 (/ (* (cos theta) (* (sin delta) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))) (pow (cos delta) 2))) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* 2 (* (cos theta) (sin delta))))))))) (+ (cos delta) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta)))))) (* (cos theta) (sin delta)))))))
#s(approx (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (pow (cos delta) 3)))
#s(approx (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #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) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #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) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (pow phi1 3) (- (* phi1 (- (* -1 (* phi1 (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))))) (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (pow (cos delta) 3))))
#s(approx (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* (pow phi1 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))
#s(approx (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #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 (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* phi1 (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 3) (pow (sin delta) 3))))))
#s(approx (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* phi1 (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (+ (* phi1 (+ (* -1 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* -1/2 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (+ (* -1/6 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))) (* (cos theta) (* (sin delta) (+ (* -1 (* (cos delta) (* (cos theta) (sin delta)))) (* -1/3 (* (cos delta) (* (cos theta) (sin delta)))))))))))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 3) (pow (sin delta) 3))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* (pow phi1 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* (pow phi1 2) (+ (* 2 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* (pow phi1 2) (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* (pow phi1 2) (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* phi1 (+ (* -1 (* (cos delta) (* (cos theta) (sin delta)))) (+ (* -2/3 (* (cos delta) (* (cos theta) (sin delta)))) (* -1/3 (* (cos delta) (* (cos theta) (sin delta))))))) (pow (cos delta) 2))))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
#s(approx (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 3))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))) #s(hole binary64 (cos delta)))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))) #s(hole binary64 (+ (cos delta) (* phi1 (+ (* -1 (* phi1 (cos delta))) (* -1 (* (cos theta) (sin delta))))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))) #s(hole binary64 (+ (cos delta) (* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* phi1 (- (* phi1 (- (+ (* -1 (/ (* (pow (cos theta) 3) (pow (sin delta) 3)) (pow (cos delta) 2))) (* 2 (/ (* (cos theta) (* (sin delta) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))) (pow (cos delta) 2)))) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (+ (* 2 (* (cos theta) (sin delta))) (/ (* (pow (cos theta) 3) (pow (sin delta) 3)) (pow (cos delta) 2))))))) (cos delta))))))))
#s(approx (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (pow (cos delta) 3)))
#s(approx (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 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 (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 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 (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (+ (* (pow phi1 3) (- (* phi1 (- (* -1 (* phi1 (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))))) (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (pow (cos delta) 3))))
#s(approx (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (pow (cos delta) 2)))
#s(approx (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (+ (* phi1 (* (cos delta) (* (cos theta) (sin delta)))) (pow (cos delta) 2))))
#s(approx (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (pow (cos delta) 2) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* -1 (* (cos delta) (* (cos theta) (sin delta)))))) (pow (cos delta) 2))))
#s(approx (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* phi1 (- (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (+ (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))) (/ (* (pow (cos theta) 3) (pow (sin delta) 3)) (cos delta)))) (+ (* -1 (/ (* (cos theta) (* (sin delta) (- (pow (cos delta) 2) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (cos delta))) (+ (* 2 (/ (* (cos theta) (* (sin delta) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))) (cos delta))) (/ (* (cos theta) (* (sin delta) (- (* (pow (cos delta) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))) (* (pow (cos delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))))) (pow (cos delta) 3)))))) (pow (cos delta) 2)) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* -1 (* (cos delta) (* (cos theta) (sin delta)))))) (pow (cos delta) 2))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) #s(hole binary64 (pow (cos delta) 6)))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) #s(hole binary64 (+ (* (pow phi1 3) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (pow (cos delta) 6))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) #s(hole binary64 (+ (* (pow phi1 3) (+ (* phi1 (+ (* 2 (* (pow (cos delta) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))))) (* (pow (cos delta) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))))))) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (pow (cos delta) 6))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) #s(hole binary64 (+ (* (pow phi1 3) (+ (* phi1 (+ (* 2 (* (pow (cos delta) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))))) (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (pow (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)) 2))))) (+ (* (cos delta) (* (cos theta) (* (sin delta) (+ (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))) (pow (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)) 2))))) (* (pow (cos delta) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))))) (* (pow (cos delta) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))))))) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (pow (cos delta) 6))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) #s(hole binary64 (* (pow phi1 3) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (+ (* 2 (* (pow (cos delta) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))))) (* (pow (cos delta) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))))))) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (+ (* 2 (* (pow (cos delta) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))))) (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (pow (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)) 2))))) (+ (* (cos delta) (* (cos theta) (* (sin delta) (+ (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))) (pow (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)) 2))))) (* (pow (cos delta) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))))) (* (pow (cos delta) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))))))) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (+ (* 2 (* (pow (cos delta) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))))) (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (pow (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)) 2))))) (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (* (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))))))) (+ (* (cos delta) (* (cos theta) (* (sin delta) (+ (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (pow (cos delta) 2)) (pow (cos delta) 2)))))))) (* 2 (* (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))))))) (+ (* (+ (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))) (pow (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)) 2)) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))) (* (pow (cos delta) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (pow (cos delta) 2)) (pow (cos delta) 2))))))))))) (+ (* (cos delta) (* (cos theta) (* (sin delta) (+ (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))) (pow (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)) 2))))) (* (pow (cos delta) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))))))))) (* (pow (cos delta) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))))))) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (pow (cos delta) 4)))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (+ (* -1 (* phi1 (* (pow (cos delta) 3) (* (cos theta) (sin delta))))) (pow (cos delta) 4))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* (pow (cos delta) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))) (* (pow (cos delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))))) (* (pow (cos delta) 3) (* (cos theta) (sin delta))))) (pow (cos delta) 4))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* phi1 (- (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))))) (* (pow (cos delta) 2) (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))))) (* (pow (cos delta) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (pow (cos delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))))) (* (pow (cos delta) 3) (* (cos theta) (sin delta))))) (pow (cos delta) 4))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (* -1 (* phi1 (* (pow (cos delta) 3) (* (cos theta) (sin delta)))))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (* phi1 (- (* phi1 (- (* (pow (cos delta) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))) (* (pow (cos delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))))) (* (pow (cos delta) 3) (* (cos theta) (sin delta)))))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (* phi1 (- (* phi1 (- (+ (* phi1 (- (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))))) (* (pow (cos delta) 2) (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))))) (* (pow (cos delta) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (pow (cos delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))))) (* (pow (cos delta) 3) (* (cos theta) (sin delta)))))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (* phi1 (- (* phi1 (- (+ (* phi1 (- (+ (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))))) (* phi1 (- (+ (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))) (pow (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)) 2)) (* (pow (cos delta) 2) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (pow (cos delta) 2)) (pow (cos delta) 2)))))))) (* (pow (cos delta) 2) (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))))) (* (pow (cos delta) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (pow (cos delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))))) (* (pow (cos delta) 3) (* (cos theta) (sin delta)))))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (* (pow phi1 2) (* (pow (cos delta) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (* (pow phi1 2) (+ (* 2 (* phi1 (* (cos delta) (* (cos theta) (* (sin delta) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))))))) (* (pow (cos delta) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (* (pow phi1 2) (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))))) (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))) (pow (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)) 2))))) (* (pow (cos delta) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (* (pow phi1 2) (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))))) (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))) (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (pow (cos delta) 2)) (pow (cos delta) 2)))))))) (* 2 (* (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))))) (pow (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)) 2)))))) (* (pow (cos delta) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (* phi1 (* (pow (cos delta) 3) (* (cos theta) (sin delta))))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (* phi1 (+ (* phi1 (* (pow (cos delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))) (* (pow (cos delta) 3) (* (cos theta) (sin delta)))))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (* (pow (cos delta) 2) (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (pow (cos delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))))) (* (pow (cos delta) 3) (* (cos theta) (sin delta)))))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* phi1 (* (pow (cos delta) 2) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (pow (cos delta) 2)) (pow (cos delta) 2)))))) (* (pow (cos delta) 2) (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))))) (* (pow (cos delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))))) (* (pow (cos delta) 3) (* (cos theta) (sin delta)))))))
#s(approx (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (cos delta)))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (+ (cos delta) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta)))))) (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* phi1 (- (* -1 (/ (* (pow (cos theta) 3) (pow (sin delta) 3)) (pow (cos delta) 2))) (+ (* -1 (/ (* (cos theta) (* (sin delta) (+ (cos delta) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta)))))) (cos delta))) (+ (* -1 (/ (* (cos theta) (* (sin delta) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))) (pow (cos delta) 2))) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* 2 (* (cos theta) (sin delta))))))))) (+ (cos delta) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta)))))) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (pow (cos delta) 2)))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* phi1 (* (cos delta) (* (cos theta) (sin delta)))) (pow (cos delta) 2))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))) (* (cos delta) (* (cos theta) (sin delta))))) (pow (cos delta) 2))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta))))) (pow (cos delta) 2))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2)))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))
#s(approx (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos theta) (sin delta)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))
#s(approx (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (+ (* phi1 (- (* -1 (* phi1 (+ (cos delta) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (* (cos theta) (sin delta)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))
#s(approx (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* phi1 (- (* -1 (/ (* (pow (cos theta) 3) (pow (sin delta) 3)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))) (+ (* -1 (/ (* (cos theta) (* (sin delta) (+ (cos delta) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* -1 (/ (* (cos theta) (* (sin delta) (+ (* (cos delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* 2 (/ (* (cos delta) (* (cos theta) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))))))) (+ (cos delta) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (* (cos theta) (sin delta)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))
#s(approx (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3)))
#s(approx (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (+ (* -1 (* (pow phi1 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3))))
#s(approx (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 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) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3))))
#s(approx (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (+ (* (pow phi1 3) (- (* phi1 (- (* -1 (* phi1 (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))))) (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3))))
#s(approx (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2)))
#s(approx (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* phi1 (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))
#s(approx (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* (cos delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))
#s(approx (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))) (+ (* -1/6 (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))) (* 2 (* (cos delta) (* (cos theta) (sin delta))))))) (+ (* (cos delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* (cos delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))) (+ (* -1/6 (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))) (* 2 (* (cos delta) (* (cos theta) (sin delta))))))) (+ (* (cos delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))) (+ (* -1/6 (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))) (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (cos delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))))))) (+ (* (cos delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))))
#s(approx (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* phi1 (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))))
#s(approx (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* phi1 (+ (* phi1 (* (cos delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))))
#s(approx (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))) (* -1/6 (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (* (cos delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))) (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))))
#s(approx (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))) (+ (* -1/3 (* phi1 (* (cos delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))) (* -1/6 (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))))) (* (cos delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))) (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (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 (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3)))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) #s(hole binary64 (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))))
#s(approx (* (sin phi1) (+ (* (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 phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* (cos phi1) (* (cos theta) (sin delta)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2)))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (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 (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))))
#s(approx (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3)))))
#s(approx (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))) #s(hole binary64 (/ (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 3)))))
#s(approx (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3)))))
#s(approx (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (/ (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 3)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))))))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) #s(hole binary64 (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 3))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) #s(hole binary64 (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 3)))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)))))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 2) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)))))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 2)))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (/ (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))))
#s(approx (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3)))))
#s(approx (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (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)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2)))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (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)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)))))
#s(approx (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (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)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))
#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 (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (/ (- 1 (pow (sin phi1) 6)) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* delta (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (/ 1 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (pow (sin phi1) 6) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* delta (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (* delta (- (* -1 (/ (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (/ 1 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (pow (sin phi1) 6) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* delta (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (* delta (- (+ (* -1 (/ (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (* delta (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- (* -1 (/ (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2))) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (/ 1 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (pow (sin phi1) 6) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- 1 (pow (sin phi1) 6))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (pow (sin phi1) 6))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (pow (sin phi1) 6))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* -1 (* delta (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))))) (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (pow (sin phi1) 6))))
#s(approx (* (pow (cos delta) 2) (cos delta)) #s(hole binary64 1))
#s(approx (* (pow (cos delta) 2) (cos delta)) #s(hole binary64 (+ 1 (* -3/2 (pow delta 2)))))
#s(approx (* (pow (cos delta) 2) (cos delta)) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 7/8 (pow delta 2)) 3/2)))))
#s(approx (* (pow (cos delta) 2) (cos delta)) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 7/8 (* -61/240 (pow delta 2)))) 3/2)))))
#s(approx (pow (cos delta) 2) #s(hole binary64 1))
#s(approx (pow (cos delta) 2) #s(hole binary64 (+ 1 (* -1 (pow delta 2)))))
#s(approx (pow (cos delta) 2) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 1/3 (pow delta 2)) 1)))))
#s(approx (pow (cos delta) 2) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/3 (* -2/45 (pow delta 2)))) 1)))))
#s(approx (cos delta) #s(hole binary64 1))
#s(approx (cos delta) #s(hole binary64 (+ 1 (* -1/2 (pow delta 2)))))
#s(approx (cos delta) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2)))))
#s(approx (cos delta) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2)))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) #s(hole binary64 (pow (sin phi1) 6)))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) #s(hole binary64 (+ (* delta (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (pow (sin phi1) 6))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) #s(hole binary64 (+ (* delta (+ (* delta (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (pow (sin phi1) 6))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) #s(hole binary64 (+ (* delta (+ (* delta (+ (* delta (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))))) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (pow (sin phi1) 6))))
#s(approx (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (sin phi1) (+ (* (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 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 phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* -1/2 (* delta (sin phi1))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (* (cos phi1) (cos theta)))))) (* (cos phi1) (cos theta)))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* delta (* (cos phi1) (cos theta)))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* (cos phi1) (cos theta))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (cos theta))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* 1/120 (* (cos phi1) (cos theta)))))))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* delta (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* delta (- (+ (* -1 (pow (sin phi1) 2)) (+ (* delta (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) 1)) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* delta (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* delta (+ (* -1 (pow (sin phi1) 2)) (+ (* delta (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (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 (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* delta (+ (* -1 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1 (pow (sin phi1) 2)) (* delta (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (/ (- 1 (pow (sin phi1) 6)) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* delta (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (/ 1 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (pow (sin phi1) 6) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))
#s(approx (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* delta (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (* delta (- (* -1 (/ (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (/ 1 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (pow (sin phi1) 6) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))
#s(approx (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* delta (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (* delta (- (+ (* -1 (/ (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (* delta (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- (* -1 (/ (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2))) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (/ 1 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (pow (sin phi1) 6) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))
#s(approx (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (- 1 (pow (sin phi1) 6))))
#s(approx (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (pow (sin phi1) 6))))
#s(approx (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (pow (sin phi1) 6))))
#s(approx (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* -1 (* delta (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))))) (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (pow (sin phi1) 6))))
#s(approx (pow (cos delta) 3) #s(hole binary64 1))
#s(approx (pow (cos delta) 3) #s(hole binary64 (+ 1 (* -3/2 (pow delta 2)))))
#s(approx (pow (cos delta) 3) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 7/8 (pow delta 2)) 3/2)))))
#s(approx (pow (cos delta) 3) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 7/8 (* -61/240 (pow delta 2)))) 3/2)))))
#s(approx (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (pow (sin phi1) 6)))
#s(approx (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* delta (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (pow (sin phi1) 6))))
#s(approx (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* delta (+ (* delta (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (pow (sin phi1) 6))))
#s(approx (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* delta (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))))) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (pow (sin phi1) 6))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (pow (sin phi1) 4)))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* 2 (* delta (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))))) (pow (sin phi1) 4))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* delta (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (pow (sin phi1) 4))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* delta (+ (* delta (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (sin phi1) 4))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))) #s(hole binary64 (/ (* (- 1 (pow (sin phi1) 6)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))) #s(hole binary64 (+ (* delta (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (/ (* (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (- 1 (pow (sin phi1) 6)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (pow (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) 2)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))) #s(hole binary64 (+ (* delta (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (+ (* delta (- (+ (* -1 (/ (* (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ 2 (+ (* -1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3))))) (+ (/ (* (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (/ (* (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (- 1 (pow (sin phi1) 6)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (pow (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) 2)))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3))) (/ (* (- 1 (pow (sin phi1) 6)) (* (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (- (+ (* 2 (* (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (* (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) 3))) (pow (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) 2))))) (/ (* (- 1 (pow (sin phi1) 6)) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3))))) (/ (* (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (- 1 (pow (sin phi1) 6)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (pow (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) 2)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))) #s(hole binary64 (+ (* delta (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (+ (* delta (- (+ (* -1 (/ (* (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (+ (* delta (- (+ (* -1 (/ (* (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (- (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ 2 (+ (* -1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* 2 (* (+ (* -1 (pow (sin phi1) 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)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (* 2 (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (* -1 (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))))) (+ (/ (* (+ (* 2 (* (+ (* -1 (pow (sin phi1) 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)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2))) (* (+ (* 2 (* (+ (* -1 (pow (sin phi1) 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)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (* 2 (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))) (* (- 1 (pow (sin phi1) 6)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (pow (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) 2)) (+ (/ (* (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (- (+ (* -1 (/ (* (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ 2 (+ (* -1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3))))) (+ (/ (* (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (/ (* (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (- 1 (pow (sin phi1) 6)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (pow (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) 2)))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3))) (/ (* (- 1 (pow (sin phi1) 6)) (* (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (- (+ (* 2 (* (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (* (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) 3))) (pow (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) 2))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3))) (/ (* (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (/ (* (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (- 1 (pow (sin phi1) 6)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (pow (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) 2))) (- (+ (* 2 (* (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (* (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) 3)) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3))))))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ 2 (+ (* -1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))))) (+ (/ (* (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (/ (* (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (- 1 (pow (sin phi1) 6)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (pow (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) 2)))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3))) (/ (* (- 1 (pow (sin phi1) 6)) (* (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (- (+ (* 2 (* (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (* (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) 3))) (pow (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) 2))))) (/ (* (- 1 (pow (sin phi1) 6)) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3))))) (/ (* (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (- 1 (pow (sin phi1) 6)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (pow (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) 2)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3))))))
#s(approx (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- 1 (pow (sin phi1) 6))))
#s(approx (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (pow (sin phi1) 6))))
#s(approx (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (pow (sin phi1) 6))))
#s(approx (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* -1 (* delta (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))))) (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (pow (sin phi1) 6))))
#s(approx (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (/ (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (+ (* delta (- (+ (* 2 (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (+ (/ 1 (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))))
#s(approx (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (+ (* delta (- (+ (* 2 (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (* delta (- (+ (* 2 (/ (* (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))) (+ (* 3 (/ 1 (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) (- (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ 2 (+ (* -1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))) (pow (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)) (/ (* (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (- (+ (* 2 (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))) (/ (* (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (+ (/ 1 (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))))
#s(approx (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (+ (* delta (- (+ (* 2 (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (* delta (- (+ (* 2 (/ (* (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (* delta (- (+ (* 2 (/ (* (+ (* -1 (pow (sin phi1) 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)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (* 2 (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))) (+ (/ (* (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) (- (+ (* 2 (* (+ (* -1 (pow (sin phi1) 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)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (* 2 (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (* -1 (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))))) (pow (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)) (+ (/ (* (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (- (+ (* 2 (/ (* (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))) (+ (* 3 (/ 1 (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) (- (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ 2 (+ (* -1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))) (pow (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)) (/ (* (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (- (+ (* 2 (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (- (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ 2 (+ (* -1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (- (+ (* 2 (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))) (+ (/ (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))) (+ (* 3 (/ 1 (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) (- (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ 2 (+ (* -1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))) (pow (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)) (/ (* (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (- (+ (* 2 (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))) (/ (* (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (+ (/ 1 (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) #s(hole binary64 (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (+ (* delta (- (+ (* 2 (* (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (* (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) 3)) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (+ (* delta (- (+ (* 2 (* (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* delta (+ (* 2 (* (+ (* -1 (pow (sin phi1) 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)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2))) (* (+ (* 2 (* (+ (* -1 (pow (sin phi1) 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)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (* 2 (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))) (+ (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (* (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))) 3)) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))))
#s(approx (pow (pow (cos delta) 2) 3) #s(hole binary64 1))
#s(approx (pow (pow (cos delta) 2) 3) #s(hole binary64 (+ 1 (* -3 (pow delta 2)))))
#s(approx (pow (pow (cos delta) 2) 3) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 4 (pow delta 2)) 3)))))
#s(approx (pow (pow (cos delta) 2) 3) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 4 (* -47/15 (pow delta 2)))) 3)))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) #s(hole binary64 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) #s(hole binary64 (+ (* delta (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) #s(hole binary64 (+ (* delta (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (+ (* delta (+ (* 2 (* (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (* (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) #s(hole binary64 (+ (* delta (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (+ (* delta (+ (* 2 (* (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* delta (+ (* 2 (* (+ (* -1 (pow (sin phi1) 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)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2))) (* (+ (* 2 (* (+ (* -1 (pow (sin phi1) 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)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (* 2 (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))) (+ (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (* (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (- (+ 1 (+ (* delta (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (- (+ 1 (+ (* delta (- (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (* delta (- (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ 2 (+ (* -1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* -1 (pow (sin phi1) 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)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (- (+ 1 (+ (* delta (- (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (* delta (- (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* delta (- (+ (* 2 (* (+ (* -1 (pow (sin phi1) 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)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (* 2 (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (* -1 (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2))) (+ 2 (+ (* -1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* -1 (pow (sin phi1) 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)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* delta (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* delta (- (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (* delta (- (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ (* -1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* -1 (pow (sin phi1) 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)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* delta (- (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (* delta (- (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* delta (- (+ (* 2 (* (+ (* -1 (pow (sin phi1) 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)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (* 2 (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (* -1 (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2))) (+ (* -1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* -1 (pow (sin phi1) 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)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* 2 (* delta (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* delta (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (* delta (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* delta (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (* delta (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* delta (+ (* 2 (* (+ (* -1 (pow (sin phi1) 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)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (* 2 (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* delta (+ (* -1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* delta (+ (* -1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* -1 (pow (sin phi1) 2)) (+ (* delta (+ (* -1 (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (/ (- 1 (pow (sin phi1) 6)) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* delta (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (/ 1 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (pow (sin phi1) 6) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* delta (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (* delta (- (* -1 (/ (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (/ 1 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (pow (sin phi1) 6) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* delta (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (* delta (- (+ (* -1 (/ (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (* delta (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- (* -1 (/ (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2))) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (/ 1 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (pow (sin phi1) 6) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* delta (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* delta (- (+ (* -1 (pow (sin phi1) 2)) (+ (* delta (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) 1)) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) #s(hole binary64 1))
#s(approx (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) #s(hole binary64 (+ 1 (* -1/2 (pow delta 2)))))
#s(approx (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2)))))
#s(approx (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2)))))
#s(approx (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) #s(hole binary64 -1))
#s(approx (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) #s(hole binary64 (- (pow delta 2) 1)))
#s(approx (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) #s(hole binary64 (- (* (pow delta 2) (+ 1 (* -1/3 (pow delta 2)))) 1)))
#s(approx (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) #s(hole binary64 (- (* (pow delta 2) (+ 1 (* (pow delta 2) (- (* 2/45 (pow delta 2)) 1/3)))) 1)))
#s(approx (* (* (sin delta) 0) (* (sin delta) 0)) #s(hole binary64 0))
#s(approx (* (sin delta) 0) #s(hole binary64 0))
#s(approx (* (* (cos delta) 1) (* (cos delta) 1)) #s(hole binary64 1))
#s(approx (* (* (cos delta) 1) (* (cos delta) 1)) #s(hole binary64 (+ 1 (* -1 (pow delta 2)))))
#s(approx (* (* (cos delta) 1) (* (cos delta) 1)) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 1/3 (pow delta 2)) 1)))))
#s(approx (* (* (cos delta) 1) (* (cos delta) 1)) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/3 (* -2/45 (pow delta 2)))) 1)))))
#s(approx (* (cos delta) 1) #s(hole binary64 1))
#s(approx (* (cos delta) 1) #s(hole binary64 (+ 1 (* -1/2 (pow delta 2)))))
#s(approx (* (cos delta) 1) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2)))))
#s(approx (* (cos delta) 1) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2)))))
#s(approx (- (* (sin delta) 0) (* (cos delta) 1)) #s(hole binary64 -1))
#s(approx (- (* (sin delta) 0) (* (cos delta) 1)) #s(hole binary64 (- (* 1/2 (pow delta 2)) 1)))
#s(approx (- (* (sin delta) 0) (* (cos delta) 1)) #s(hole binary64 (- (* (pow delta 2) (+ 1/2 (* -1/24 (pow delta 2)))) 1)))
#s(approx (- (* (sin delta) 0) (* (cos delta) 1)) #s(hole binary64 (- (* (pow delta 2) (+ 1/2 (* (pow delta 2) (- (* 1/720 (pow delta 2)) 1/24)))) 1)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (/ (- (pow (sin (* 1/2 (PI))) 3) (pow (sin phi1) 6)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))))
#s(approx (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* delta (- (+ (* 2 (/ (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (/ (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* 2 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1)))))) (- (pow (sin (* 1/2 (PI))) 3) (pow (sin phi1) 6))) (pow (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))) 2)) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))))) (/ (pow (sin (* 1/2 (PI))) 3) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (/ (pow (sin phi1) 6) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2)))))))
#s(approx (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* delta (- (+ (* 2 (/ (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (+ (* delta (- (+ (* -1/2 (/ (pow (sin (* 1/2 (PI))) 3) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (+ (* 2 (/ (* (pow (cos (* 1/2 (PI))) 2) (sin (* 1/2 (PI)))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (/ (* (sin (* 1/2 (PI))) (+ (* -1 (pow (sin (* 1/2 (PI))) 2)) (pow (cos (* 1/2 (PI))) 2))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2)))))) (+ (/ (* (+ (* -1 (pow (sin (* 1/2 (PI))) 2)) (+ (* (sin phi1) (+ (* -1 (* (sin phi1) (sin (* 1/2 (PI))))) (* (cos phi1) (* (cos theta) (cos (* 1/2 (PI))))))) (+ (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (pow (cos (* 1/2 (PI))) 2)))) (- (pow (sin (* 1/2 (PI))) 3) (pow (sin phi1) 6))) (pow (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))) 2)) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* 2 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1)))))) (- (+ (* 2 (/ (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (/ (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* 2 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1)))))) (- (pow (sin (* 1/2 (PI))) 3) (pow (sin phi1) 6))) (pow (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))) 2)) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 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) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2)))))))) (/ (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2)))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* 2 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1)))))) (- (pow (sin (* 1/2 (PI))) 3) (pow (sin phi1) 6))) (pow (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))) 2)) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))))) (/ (pow (sin (* 1/2 (PI))) 3) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (/ (pow (sin phi1) 6) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2)))))))
#s(approx (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* delta (- (+ (* 2 (/ (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (+ (* delta (- (+ (* -1/2 (/ (pow (sin (* 1/2 (PI))) 3) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (+ (* 2 (/ (* (pow (cos (* 1/2 (PI))) 2) (sin (* 1/2 (PI)))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (+ (* delta (- (+ (* -1 (/ (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (+ (* -1/6 (/ (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (+ (/ (* (cos (* 1/2 (PI))) (+ (* -1 (pow (sin (* 1/2 (PI))) 2)) (pow (cos (* 1/2 (PI))) 2))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2)))) (/ (* (sin (* 1/2 (PI))) (+ (* -1 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (* -1/3 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))))) (+ (/ (* (+ (* -1 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (+ (* -1/3 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (+ (* (sin phi1) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI)))))) (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin phi1))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI)))))) (* -1/6 (* (cos (* 1/2 (PI))) (sin phi1))))))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))) (- (pow (sin (* 1/2 (PI))) 3) (pow (sin phi1) 6))) (pow (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))) 2)) (+ (/ (* (+ (* -1 (pow (sin (* 1/2 (PI))) 2)) (+ (* (sin phi1) (+ (* -1 (* (sin phi1) (sin (* 1/2 (PI))))) (* (cos phi1) (* (cos theta) (cos (* 1/2 (PI))))))) (+ (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (pow (cos (* 1/2 (PI))) 2)))) (- (+ (* 2 (/ (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (/ (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* 2 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1)))))) (- (pow (sin (* 1/2 (PI))) 3) (pow (sin phi1) 6))) (pow (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))) 2)) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2)))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* 2 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1)))))) (- (+ (* -1/2 (/ (pow (sin (* 1/2 (PI))) 3) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (+ (* 2 (/ (* (pow (cos (* 1/2 (PI))) 2) (sin (* 1/2 (PI)))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (/ (* (sin (* 1/2 (PI))) (+ (* -1 (pow (sin (* 1/2 (PI))) 2)) (pow (cos (* 1/2 (PI))) 2))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2)))))) (+ (/ (* (+ (* -1 (pow (sin (* 1/2 (PI))) 2)) (+ (* (sin phi1) (+ (* -1 (* (sin phi1) (sin (* 1/2 (PI))))) (* (cos phi1) (* (cos theta) (cos (* 1/2 (PI))))))) (+ (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (pow (cos (* 1/2 (PI))) 2)))) (- (pow (sin (* 1/2 (PI))) 3) (pow (sin phi1) 6))) (pow (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))) 2)) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* 2 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1)))))) (- (+ (* 2 (/ (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (/ (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* 2 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1)))))) (- (pow (sin (* 1/2 (PI))) 3) (pow (sin phi1) 6))) (pow (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))) 2)) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 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) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2)))))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2)))) (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))))))) (/ (* (sin (* 1/2 (PI))) (+ (* -1 (pow (sin (* 1/2 (PI))) 2)) (pow (cos (* 1/2 (PI))) 2))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))))) (+ (/ (* (+ (* -1 (pow (sin (* 1/2 (PI))) 2)) (+ (* (sin phi1) (+ (* -1 (* (sin phi1) (sin (* 1/2 (PI))))) (* (cos phi1) (* (cos theta) (cos (* 1/2 (PI))))))) (+ (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (pow (cos (* 1/2 (PI))) 2)))) (- (pow (sin (* 1/2 (PI))) 3) (pow (sin phi1) 6))) (pow (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))) 2)) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* 2 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1)))))) (- (+ (* 2 (/ (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (/ (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* 2 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1)))))) (- (pow (sin (* 1/2 (PI))) 3) (pow (sin phi1) 6))) (pow (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))) 2)) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 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) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2)))))))) (/ (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2)))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* 2 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1)))))) (- (pow (sin (* 1/2 (PI))) 3) (pow (sin phi1) 6))) (pow (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))) 2)) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))))) (/ (pow (sin (* 1/2 (PI))) 3) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (/ (pow (sin phi1) 6) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2)))))))
#s(approx (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (pow (sin (* 1/2 (PI))) 3) (pow (sin phi1) 6))))
#s(approx (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ (* delta (- (+ (* 2 (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2))) (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (pow (sin (* 1/2 (PI))) 3)) (pow (sin phi1) 6))))
#s(approx (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ (* delta (- (+ (* 2 (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2))) (+ (* delta (- (+ (* -1/2 (pow (sin (* 1/2 (PI))) 3)) (+ (* 2 (* (pow (cos (* 1/2 (PI))) 2) (sin (* 1/2 (PI))))) (* (sin (* 1/2 (PI))) (+ (* -1 (pow (sin (* 1/2 (PI))) 2)) (pow (cos (* 1/2 (PI))) 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))))))))) (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (pow (sin (* 1/2 (PI))) 3)) (pow (sin phi1) 6))))
#s(approx (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ (* delta (- (+ (* 2 (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2))) (+ (* delta (- (+ (* -1/2 (pow (sin (* 1/2 (PI))) 3)) (+ (* 2 (* (pow (cos (* 1/2 (PI))) 2) (sin (* 1/2 (PI))))) (+ (* delta (- (+ (* -1 (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2))) (+ (* -1/6 (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2))) (+ (* (cos (* 1/2 (PI))) (+ (* -1 (pow (sin (* 1/2 (PI))) 2)) (pow (cos (* 1/2 (PI))) 2))) (* (sin (* 1/2 (PI))) (+ (* -1 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (* -1/3 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI)))))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))))) (* (sin (* 1/2 (PI))) (+ (* -1 (pow (sin (* 1/2 (PI))) 2)) (pow (cos (* 1/2 (PI))) 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))))))))) (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (pow (sin (* 1/2 (PI))) 3)) (pow (sin phi1) 6))))
#s(approx (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) #s(hole binary64 (pow (sin (* 1/2 (PI))) 3)))
#s(approx (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2))) (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)))) (pow (sin (* 1/2 (PI))) 3))))
#s(approx (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2))) (+ (* delta (+ (* -1/2 (pow (sin (* 1/2 (PI))) 3)) (+ (* 2 (* (pow (cos (* 1/2 (PI))) 2) (sin (* 1/2 (PI))))) (* (sin (* 1/2 (PI))) (+ (* -1 (pow (sin (* 1/2 (PI))) 2)) (pow (cos (* 1/2 (PI))) 2)))))) (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2))))) (pow (sin (* 1/2 (PI))) 3))))
#s(approx (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2))) (+ (* delta (+ (* -1/2 (pow (sin (* 1/2 (PI))) 3)) (+ (* 2 (* (pow (cos (* 1/2 (PI))) 2) (sin (* 1/2 (PI))))) (+ (* delta (+ (* -1 (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2))) (+ (* -1/6 (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2))) (+ (* (cos (* 1/2 (PI))) (+ (* -1 (pow (sin (* 1/2 (PI))) 2)) (pow (cos (* 1/2 (PI))) 2))) (* (sin (* 1/2 (PI))) (+ (* -1 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (* -1/3 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))))))))) (* (sin (* 1/2 (PI))) (+ (* -1 (pow (sin (* 1/2 (PI))) 2)) (pow (cos (* 1/2 (PI))) 2))))))) (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2))))) (pow (sin (* 1/2 (PI))) 3))))
#s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* delta (cos (* 1/2 (PI)))))))
#s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (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) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (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 (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* delta (sin (PI))))))
#s(approx (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* delta (+ (sin (PI)) (* -1/2 (* delta (sin (* 1/2 (PI))))))))))
#s(approx (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* delta (+ (sin (PI)) (* delta (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* delta (sin (PI)))))))))))
#s(approx (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta)) #s(hole binary64 (* delta (sin (PI)))))
#s(approx (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta)) #s(hole binary64 (* delta (+ (sin (PI)) (* -1/6 (* (pow delta 2) (sin (PI))))))))
#s(approx (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta)) #s(hole binary64 (* delta (+ (sin (PI)) (* (pow delta 2) (+ (* -1/6 (sin (PI))) (* 1/120 (* (pow delta 2) (sin (PI))))))))))
#s(approx (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta)) #s(hole binary64 (* delta (+ (sin (PI)) (* (pow delta 2) (+ (* -1/6 (sin (PI))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin (PI)))) (* 1/120 (sin (PI)))))))))))
#s(approx (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2)))))
#s(approx (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* 2 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1))))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))))
#s(approx (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* 2 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (+ (* delta (+ (* -1 (pow (sin (* 1/2 (PI))) 2)) (+ (* (sin phi1) (+ (* -1 (* (sin phi1) (sin (* 1/2 (PI))))) (* (cos phi1) (* (cos theta) (cos (* 1/2 (PI))))))) (+ (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (pow (cos (* 1/2 (PI))) 2))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1)))))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))))
#s(approx (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* 2 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (+ (* delta (+ (* -1 (pow (sin (* 1/2 (PI))) 2)) (+ (* delta (+ (* -1 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (+ (* -1/3 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (+ (* (sin phi1) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI)))))) (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin phi1))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI)))))) (* -1/6 (* (cos (* 1/2 (PI))) (sin phi1))))))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))) (+ (* (sin phi1) (+ (* -1 (* (sin phi1) (sin (* 1/2 (PI))))) (* (cos phi1) (* (cos theta) (cos (* 1/2 (PI))))))) (+ (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (pow (cos (* 1/2 (PI))) 2)))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1)))))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (pow (sin phi1) 4))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1)))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (pow (sin phi1) 4)))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* delta (+ (* (sin phi1) (+ (* -1 (* (sin phi1) (sin (* 1/2 (PI))))) (* (cos phi1) (* (cos theta) (cos (* 1/2 (PI))))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1))))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (pow (sin phi1) 4)))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* delta (+ (* delta (+ (* (sin phi1) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI)))))) (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin phi1))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI)))))) (* -1/6 (* (cos (* 1/2 (PI))) (sin phi1))))))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (+ (* (sin phi1) (+ (* -1 (* (sin phi1) (sin (* 1/2 (PI))))) (* (cos phi1) (* (cos theta) (cos (* 1/2 (PI))))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1))))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (pow (sin phi1) 4)))))
#s(approx (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* (pow (sin phi1) 2) (sin (* 1/2 (PI))))))
#s(approx (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* delta (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1))))) (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))))))
#s(approx (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* delta (+ (* delta (* (sin phi1) (+ (* -1 (* (sin phi1) (sin (* 1/2 (PI))))) (* (cos phi1) (* (cos theta) (cos (* 1/2 (PI)))))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1)))))) (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))))))
#s(approx (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* delta (* (sin phi1) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI)))))) (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin phi1))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI)))))) (* -1/6 (* (cos (* 1/2 (PI))) (sin phi1)))))))) (* (sin phi1) (+ (* -1 (* (sin phi1) (sin (* 1/2 (PI))))) (* (cos phi1) (* (cos theta) (cos (* 1/2 (PI))))))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1)))))) (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))))))
#s(approx (sin delta) #s(hole binary64 (sin delta)))
#s(approx (* (pow (cos delta) 2) (cos delta)) #s(hole binary64 (pow (cos delta) 3)))
#s(approx (pow (cos delta) 2) #s(hole binary64 (pow (cos delta) 2)))
#s(approx (cos delta) #s(hole binary64 (cos delta)))
#s(approx (pow (cos delta) 3) #s(hole binary64 (pow (cos delta) 3)))
#s(approx (pow (pow (cos delta) 2) 3) #s(hole binary64 (pow (cos delta) 6)))
#s(approx (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) #s(hole binary64 (cos delta)))
#s(approx (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) #s(hole binary64 (* -1 (pow (cos delta) 2))))
#s(approx (* (* (cos delta) 1) (* (cos delta) 1)) #s(hole binary64 (pow (cos delta) 2)))
#s(approx (* (cos delta) 1) #s(hole binary64 (cos delta)))
#s(approx (- (* (sin delta) 0) (* (cos delta) 1)) #s(hole binary64 (* -1 (cos delta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) #s(hole binary64 (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3)))
#s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))
#s(approx (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta))) #s(hole binary64 (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (sin delta) (sin (PI))))))
#s(approx (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta)) #s(hole binary64 (* (sin delta) (sin (PI)))))
#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 (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (/ (pow (cos delta) 3) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (/ (pow (cos delta) 3) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (+ (/ (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)) (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (/ (pow (cos delta) 3) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ (* -1 (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (pow (cos delta) 3)) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (pow (cos delta) 3)) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ (* (pow theta 2) (- (* (pow theta 2) (- (* -1 (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (pow (cos delta) 3)) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) #s(hole binary64 (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) #s(hole binary64 (+ (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) #s(hole binary64 (+ (* (pow theta 2) (+ (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) #s(hole binary64 (+ (* (pow theta 2) (+ (* (pow theta 2) (+ (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (* (sin phi1) (+ (* (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 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 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 phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* (cos phi1) (sin delta))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta)))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta))))))))))
#s(approx (cos theta) #s(hole binary64 1))
#s(approx (cos theta) #s(hole binary64 (+ 1 (* -1/2 (pow theta 2)))))
#s(approx (cos theta) #s(hole binary64 (+ 1 (* (pow theta 2) (- (* 1/24 (pow theta 2)) 1/2)))))
#s(approx (cos theta) #s(hole binary64 (+ 1 (* (pow theta 2) (- (* (pow theta 2) (+ 1/24 (* -1/720 (pow theta 2)))) 1/2)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow theta 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow theta 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (+ (* (pow theta 2) (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow theta 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow theta 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (+ (* (pow theta 2) (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (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 phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (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))))) (* (pow theta 2) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (pow theta 2) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (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))))) (* (pow theta 2) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))))))
#s(approx (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (/ (pow (cos delta) 3) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))))))
#s(approx (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (/ (pow (cos delta) 3) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))))))
#s(approx (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (+ (/ (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)) (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (/ (pow (cos delta) 3) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))))))
#s(approx (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (- (+ (* -1 (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (pow (cos delta) 3)) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (pow (cos delta) 3)) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* (pow theta 2) (- (* -1 (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (pow (cos delta) 3)) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))
#s(approx (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (pow theta 2) (+ (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (pow theta 2) (+ (* (pow theta 2) (+ (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* -1 (* (pow theta 2) (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* (pow theta 2) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* (pow theta 2) (+ (* (pow theta 2) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))) #s(hole binary64 (/ (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (/ (* (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (/ (* (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (pow (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) 2)))) (/ (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (/ (* (- (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (* (pow (cos delta) 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3))))) (+ (/ (* (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (/ (* (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (/ (* (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (pow (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) 2)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3))) (/ (* (+ (* 2 (* (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (+ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (pow (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) 2))))) (/ (* (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3))))) (/ (* (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (pow (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) 2)))) (/ (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (* (pow (cos delta) 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (/ (* (- (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (* 2 (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (* (pow (cos delta) 2) (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))))) (+ (/ (* (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2))) (+ (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (* 2 (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (pow (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) 2)) (+ (/ (* (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (/ (* (- (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (* (pow (cos delta) 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3))))) (+ (/ (* (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (/ (* (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (/ (* (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (pow (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) 2)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3))) (/ (* (+ (* 2 (* (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (+ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (pow (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) 2))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3))) (/ (* (+ (* 2 (* (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (+ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (/ (* (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (/ (* (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (pow (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) 2)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3))))))) (/ (* (- (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (* (pow (cos delta) 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))))) (+ (/ (* (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (/ (* (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (/ (* (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (pow (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) 2)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3))) (/ (* (+ (* 2 (* (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (+ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (pow (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) 2))))) (/ (* (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3))))) (/ (* (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (pow (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) 2)))) (/ (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3))))))
#s(approx (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ (* -1 (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (pow (cos delta) 3)) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (pow (cos delta) 3)) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ (* (pow theta 2) (- (* (pow theta 2) (- (* -1 (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (pow (cos delta) 3)) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (/ (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))
#s(approx (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* 2 (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (/ (* (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (pow (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)))) (+ (/ (pow (cos delta) 6) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (/ (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))))
#s(approx (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* 2 (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (* (pow theta 2) (- (+ (* 2 (/ (* (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (/ (* (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (+ (/ (* (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) (- (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (* (pow (cos delta) 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))))) (pow (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)) (/ (* (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (- (+ (* 2 (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (/ (* (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (pow (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (/ (* (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (pow (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)))) (+ (/ (pow (cos delta) 6) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (/ (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))))
#s(approx (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* 2 (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (* (pow theta 2) (- (+ (* 2 (/ (* (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (* (pow theta 2) (- (+ (* 2 (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (/ (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (/ (* (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (* 2 (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))) (+ (/ (* (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) (- (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (* 2 (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (* (pow (cos delta) 2) (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))))) (pow (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)) (+ (/ (* (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (- (+ (* 2 (/ (* (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (/ (* (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (+ (/ (* (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) (- (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (* (pow (cos delta) 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))))) (pow (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)) (/ (* (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (- (+ (* 2 (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (/ (* (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (pow (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (/ (* (- (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (* (pow (cos delta) 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (- (+ (* 2 (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (/ (* (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (pow (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))))) (+ (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (/ (* (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))) (+ (/ (* (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) (- (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (* (pow (cos delta) 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))))) (pow (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)) (/ (* (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (- (+ (* 2 (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (/ (* (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (pow (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (/ (* (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (pow (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)))) (+ (/ (pow (cos delta) 6) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (/ (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) #s(hole binary64 (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) #s(hole binary64 (+ (* (pow theta 2) (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) #s(hole binary64 (+ (* (pow theta 2) (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow theta 2) (+ (* 2 (* (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (+ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) #s(hole binary64 (+ (* (pow theta 2) (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow theta 2) (+ (* 2 (* (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (+ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (+ (* (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (pow theta 2) (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2))) (+ (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (* 2 (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) #s(hole binary64 (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) #s(hole binary64 (+ (* (pow theta 2) (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) #s(hole binary64 (+ (* (pow theta 2) (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow theta 2) (+ (* 2 (* (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (+ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) #s(hole binary64 (+ (* (pow theta 2) (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow theta 2) (+ (* 2 (* (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (+ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (+ (* (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (pow theta 2) (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2))) (+ (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (* 2 (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))))))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow theta 2) (- (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (* (pow (cos delta) 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow theta 2) (- (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (+ (* (pow theta 2) (- (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (* 2 (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (* (pow (cos delta) 2) (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2))) (* (pow (cos delta) 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow theta 2) (- (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (* (pow (cos delta) 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow theta 2) (- (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (+ (* (pow theta 2) (- (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (* 2 (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (* (pow (cos delta) 2) (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2))) (* (pow (cos delta) 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* 2 (* (pow theta 2) (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* (pow theta 2) (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow theta 2) (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* (pow theta 2) (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow theta 2) (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (+ (* (pow theta 2) (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (* 2 (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* (pow theta 2) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* (pow theta 2) (+ (* (pow theta 2) (* (pow (cos delta) 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* (pow theta 2) (+ (* (pow theta 2) (+ (* (pow theta 2) (* (pow (cos delta) 2) (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))))) (* (pow (cos delta) 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (/ (pow (cos delta) 3) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (/ (pow (cos delta) 3) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (+ (/ (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)) (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (/ (pow (cos delta) 3) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow theta 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow theta 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (+ (* (pow theta 2) (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (* (* (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 (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (/ (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))))
#s(approx (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))) 2)))) (/ (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))) (/ (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2)))))))
#s(approx (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))) 2)))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2)))) (/ (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (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 (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))) 2)))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))) 2)))) (/ (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))) (/ (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2)))))))
#s(approx (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))) (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))) 2)))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2)))) (/ (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (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 (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))) 2))))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2)))) (+ (/ (* (+ (* -1/720 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))) 2)) (/ (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))) 2)))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))) 2)))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2)))) (/ (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (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 (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))) 2)))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))) 2)))) (/ (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))) (/ (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2)))))))
#s(approx (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ (* -1 (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3)) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3)) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ (* (pow theta 2) (- (* (pow theta 2) (- (* -1 (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3)) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2)))))
#s(approx (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))))
#s(approx (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))) (* (pow theta 2) (+ (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))))
#s(approx (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))) (* (pow theta 2) (+ (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))) (+ (* (pow theta 2) (+ (* -1/720 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))) (* (pow theta 2) (+ (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))) (* (pow theta 2) (+ (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))) (+ (* (pow theta 2) (+ (* -1/720 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))
#s(approx (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))
#s(approx (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))))
#s(approx (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))))))))
#s(approx (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (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
79.0ms	delta	@	0	((+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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 (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (* (pow (cos delta) 2) (cos delta)) (pow (cos delta) 2) (cos delta) 2 (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (* (cos phi1) (sin delta)) (cos theta)) (cos theta) 3 (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))))) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))) (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (* (* (sin delta) 0) (* (sin delta) 0)) (* (sin delta) 0) 0 (* (* (cos delta) 1) (* (cos delta) 1)) (* (cos delta) 1) 1 (- (* (sin delta) 0) (* (cos delta) 1)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta))) (sin (* 1/2 (PI))) (* 1/2 (PI)) 1/2 (PI) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta)) (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (+ (* 1/2 (PI)) (/ (PI) 2)) (/ (PI) 2) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))
62.0ms	theta	@	-inf	((+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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 (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (* (pow (cos delta) 2) (cos delta)) (pow (cos delta) 2) (cos delta) 2 (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (* (cos phi1) (sin delta)) (cos theta)) (cos theta) 3 (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))))) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))) (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (* (* (sin delta) 0) (* (sin delta) 0)) (* (sin delta) 0) 0 (* (* (cos delta) 1) (* (cos delta) 1)) (* (cos delta) 1) 1 (- (* (sin delta) 0) (* (cos delta) 1)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta))) (sin (* 1/2 (PI))) (* 1/2 (PI)) 1/2 (PI) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta)) (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (+ (* 1/2 (PI)) (/ (PI) 2)) (/ (PI) 2) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))
57.0ms	theta	@	0	((+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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 (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (* (pow (cos delta) 2) (cos delta)) (pow (cos delta) 2) (cos delta) 2 (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (* (cos phi1) (sin delta)) (cos theta)) (cos theta) 3 (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))))) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))) (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (* (* (sin delta) 0) (* (sin delta) 0)) (* (sin delta) 0) 0 (* (* (cos delta) 1) (* (cos delta) 1)) (* (cos delta) 1) 1 (- (* (sin delta) 0) (* (cos delta) 1)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta))) (sin (* 1/2 (PI))) (* 1/2 (PI)) 1/2 (PI) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta)) (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (+ (* 1/2 (PI)) (/ (PI) 2)) (/ (PI) 2) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))
26.0ms	delta	@	-inf	((+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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 (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (* (pow (cos delta) 2) (cos delta)) (pow (cos delta) 2) (cos delta) 2 (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (* (cos phi1) (sin delta)) (cos theta)) (cos theta) 3 (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))))) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))) (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (* (* (sin delta) 0) (* (sin delta) 0)) (* (sin delta) 0) 0 (* (* (cos delta) 1) (* (cos delta) 1)) (* (cos delta) 1) 1 (- (* (sin delta) 0) (* (cos delta) 1)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta))) (sin (* 1/2 (PI))) (* 1/2 (PI)) 1/2 (PI) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta)) (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (+ (* 1/2 (PI)) (/ (PI) 2)) (/ (PI) 2) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))
26.0ms	phi1	@	0	((+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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 (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (* (pow (cos delta) 2) (cos delta)) (pow (cos delta) 2) (cos delta) 2 (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (* (cos phi1) (sin delta)) (cos theta)) (cos theta) 3 (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))))) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))) (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (* (* (sin delta) 0) (* (sin delta) 0)) (* (sin delta) 0) 0 (* (* (cos delta) 1) (* (cos delta) 1)) (* (cos delta) 1) 1 (- (* (sin delta) 0) (* (cos delta) 1)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta))) (sin (* 1/2 (PI))) (* 1/2 (PI)) 1/2 (PI) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta)) (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (+ (* 1/2 (PI)) (/ (PI) 2)) (/ (PI) 2) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))

rewrite643.0ms (3.2%)

Memory

32.1MiB live, 1 016.4MiB allocated; 175ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	2863	129482
0	3038	107856
0	9978	102737

Stop Event

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

Counts

631 → 754

Calls

Call 1

Inputs
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (cos.f64 delta)) (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))))))))))
lambda1
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (cos.f64 delta)) (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 (.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 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (cos.f64 delta)) (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 (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (cos.f64 delta)) (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)))
(*.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (cos.f64 delta))
(pow.f64 (cos.f64 delta) #s(literal 2 binary64))
(cos.f64 delta)
#s(literal 2 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))
(.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 phi1)
(fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))
(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)))))))
(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)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (.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 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))) (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))))))))))
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (.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 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))) (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 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (.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 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))) (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 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (.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 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))
(pow.f64 (cos.f64 delta) #s(literal 3 binary64))
(.f64 (.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 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(.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 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #s(literal 3 binary64))) (/.f64 (+.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (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)))))) #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 (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)))))) (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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (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)))))))))))))
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))) #s(literal 3 binary64))) (/.f64 (+.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (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)))))) #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 (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)))))) (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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (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 (-.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))) (/.f64 (+.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (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)))))) #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 (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)))))) (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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (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 (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)))
(/.f64 (+.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (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)))))) #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 (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)))))) (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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (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 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (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)))))) #s(literal 3 binary64)))
(pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 3 binary64))
(pow.f64 (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)))))) #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 (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)))))) (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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (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 (.f64 (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)))))) (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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (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 (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)))))) (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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (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 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (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 (/.f64 (-.f64 (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64))) (.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))) (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))))))))))
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (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 (/.f64 (-.f64 (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64))) (.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))) (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 (-.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 (/.f64 (-.f64 (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64))) (.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))) (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))))))))
(fma.f64 (/.f64 (-.f64 (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64))) (.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))) (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 (-.f64 (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64))) (.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64))))
(-.f64 (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64))) (.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64))))
(.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (*.f64 (sin.f64 delta) #s(literal 0 binary64)))
(*.f64 (sin.f64 delta) #s(literal 0 binary64))
#s(literal 0 binary64)
(.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) (*.f64 (cos.f64 delta) #s(literal 1 binary64)))
(*.f64 (cos.f64 delta) #s(literal 1 binary64))
#s(literal 1 binary64)
(-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(/.f64 (-.f64 (pow.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 (pow.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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)))
(pow.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) #s(literal 3 binary64))
#s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))
(fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(*.f64 #s(literal 1/2 binary64) (PI.f64))
#s(literal 1/2 binary64)
(PI.f64)
(*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))
(sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))
(/.f64 (PI.f64) #s(literal 2 binary64))
(fma.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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)))))))
(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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2)))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))))))
#s(approx lambda1 #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2)))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 3))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 3)))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2)))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2)))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 3)))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 3)))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))) lambda1)) 1)))))
#s(approx (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2)))))))
#s(approx (* (* (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 (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (cos delta)))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (+ (cos delta) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta)))))) (* (cos theta) (sin delta)))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* phi1 (- (* -1 (/ (* (pow (cos theta) 3) (pow (sin delta) 3)) (pow (cos delta) 2))) (+ (* -1 (/ (* (cos theta) (* (sin delta) (+ (cos delta) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta)))))) (cos delta))) (+ (* -1 (/ (* (cos theta) (* (sin delta) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))) (pow (cos delta) 2))) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* 2 (* (cos theta) (sin delta))))))))) (+ (cos delta) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta)))))) (* (cos theta) (sin delta)))))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (pow (cos delta) 3)))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 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) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 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) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (+ (* (pow phi1 3) (- (* phi1 (- (* -1 (* phi1 (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))))) (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (pow (cos delta) 3))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) #s(hole binary64 (* (pow phi1 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 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 (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* phi1 (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 3) (pow (sin delta) 3))))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* phi1 (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (+ (* phi1 (+ (* -1 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* -1/2 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (+ (* -1/6 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))) (* (cos theta) (* (sin delta) (+ (* -1 (* (cos delta) (* (cos theta) (sin delta)))) (* -1/3 (* (cos delta) (* (cos theta) (sin delta)))))))))))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 3) (pow (sin delta) 3))))))
#s(approx (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) #s(hole binary64 (* phi1 (* (cos theta) (sin delta)))))
#s(approx (* (sin phi1) (+ (* (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 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 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 phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* phi1 (cos delta))))))) (* (cos theta) (sin delta)))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* (cos theta) (sin delta)))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* 1/24 (* (pow phi1 2) (* (cos theta) (sin delta)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* 1/24 (* (cos theta) (sin delta))))))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (pow (cos delta) 2)))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* phi1 (* (cos delta) (* (cos theta) (sin delta)))) (pow (cos delta) 2))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))) (* (cos delta) (* (cos theta) (sin delta))))) (pow (cos delta) 2))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta))))) (pow (cos delta) 2))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (+ (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (pow (cos delta) 2)) (pow (cos delta) 2))))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* phi1 (+ (* phi1 (pow (cos delta) 2)) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (pow (cos delta) 2))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/3 (* phi1 (pow (cos delta) 2))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (pow (cos delta) 2))) (* (cos delta) (* (cos theta) (sin delta)))))))
#s(approx (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2)))))))
#s(approx (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (cos delta)))
#s(approx (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (+ (cos delta) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta)))))) (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* phi1 (- (* -1 (/ (* (pow (cos theta) 3) (pow (sin delta) 3)) (pow (cos delta) 2))) (+ (* -1 (/ (* (cos theta) (* (sin delta) (+ (cos delta) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta)))))) (cos delta))) (+ (* -1 (/ (* (cos theta) (* (sin delta) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))) (pow (cos delta) 2))) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* 2 (* (cos theta) (sin delta))))))))) (+ (cos delta) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta)))))) (* (cos theta) (sin delta)))))))
#s(approx (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (pow (cos delta) 3)))
#s(approx (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #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) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #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) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (pow phi1 3) (- (* phi1 (- (* -1 (* phi1 (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))))) (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (pow (cos delta) 3))))
#s(approx (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* (pow phi1 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))
#s(approx (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #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 (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* phi1 (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 3) (pow (sin delta) 3))))))
#s(approx (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* phi1 (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (+ (* phi1 (+ (* -1 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* -1/2 (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (+ (* -1/6 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))) (* (cos theta) (* (sin delta) (+ (* -1 (* (cos delta) (* (cos theta) (sin delta)))) (* -1/3 (* (cos delta) (* (cos theta) (sin delta)))))))))))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 3) (pow (sin delta) 3))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* (pow phi1 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* (pow phi1 2) (+ (* 2 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* (pow phi1 2) (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* (pow phi1 2) (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* phi1 (+ (* -1 (* (cos delta) (* (cos theta) (sin delta)))) (+ (* -2/3 (* (cos delta) (* (cos theta) (sin delta)))) (* -1/3 (* (cos delta) (* (cos theta) (sin delta))))))) (pow (cos delta) 2))))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
#s(approx (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 3))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))) #s(hole binary64 (cos delta)))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))) #s(hole binary64 (+ (cos delta) (* phi1 (+ (* -1 (* phi1 (cos delta))) (* -1 (* (cos theta) (sin delta))))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))) #s(hole binary64 (+ (cos delta) (* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* phi1 (- (* phi1 (- (+ (* -1 (/ (* (pow (cos theta) 3) (pow (sin delta) 3)) (pow (cos delta) 2))) (* 2 (/ (* (cos theta) (* (sin delta) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))) (pow (cos delta) 2)))) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (+ (* 2 (* (cos theta) (sin delta))) (/ (* (pow (cos theta) 3) (pow (sin delta) 3)) (pow (cos delta) 2))))))) (cos delta))))))))
#s(approx (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (pow (cos delta) 3)))
#s(approx (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 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 (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 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 (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (+ (* (pow phi1 3) (- (* phi1 (- (* -1 (* phi1 (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))))) (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (pow (cos delta) 3))))
#s(approx (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (pow (cos delta) 2)))
#s(approx (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (+ (* phi1 (* (cos delta) (* (cos theta) (sin delta)))) (pow (cos delta) 2))))
#s(approx (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (pow (cos delta) 2) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* -1 (* (cos delta) (* (cos theta) (sin delta)))))) (pow (cos delta) 2))))
#s(approx (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* phi1 (- (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (+ (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))) (/ (* (pow (cos theta) 3) (pow (sin delta) 3)) (cos delta)))) (+ (* -1 (/ (* (cos theta) (* (sin delta) (- (pow (cos delta) 2) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (cos delta))) (+ (* 2 (/ (* (cos theta) (* (sin delta) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))) (cos delta))) (/ (* (cos theta) (* (sin delta) (- (* (pow (cos delta) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))) (* (pow (cos delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))))) (pow (cos delta) 3)))))) (pow (cos delta) 2)) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* -1 (* (cos delta) (* (cos theta) (sin delta)))))) (pow (cos delta) 2))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) #s(hole binary64 (pow (cos delta) 6)))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) #s(hole binary64 (+ (* (pow phi1 3) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (pow (cos delta) 6))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) #s(hole binary64 (+ (* (pow phi1 3) (+ (* phi1 (+ (* 2 (* (pow (cos delta) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))))) (* (pow (cos delta) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))))))) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (pow (cos delta) 6))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) #s(hole binary64 (+ (* (pow phi1 3) (+ (* phi1 (+ (* 2 (* (pow (cos delta) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))))) (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (pow (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)) 2))))) (+ (* (cos delta) (* (cos theta) (* (sin delta) (+ (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))) (pow (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)) 2))))) (* (pow (cos delta) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))))) (* (pow (cos delta) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))))))) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))) (pow (cos delta) 6))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) #s(hole binary64 (* (pow phi1 3) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3))))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (+ (* 2 (* (pow (cos delta) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))))) (* (pow (cos delta) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))))))) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (+ (* 2 (* (pow (cos delta) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))))) (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (pow (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)) 2))))) (+ (* (cos delta) (* (cos theta) (* (sin delta) (+ (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))) (pow (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)) 2))))) (* (pow (cos delta) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))))) (* (pow (cos delta) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))))))) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) #s(hole binary64 (* (pow phi1 3) (+ (* phi1 (+ (* 2 (* (pow (cos delta) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))))) (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (pow (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)) 2))))) (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (* (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))))))) (+ (* (cos delta) (* (cos theta) (* (sin delta) (+ (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (pow (cos delta) 2)) (pow (cos delta) 2)))))))) (* 2 (* (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))))))) (+ (* (+ (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))) (pow (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)) 2)) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))) (* (pow (cos delta) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (pow (cos delta) 2)) (pow (cos delta) 2))))))))))) (+ (* (cos delta) (* (cos theta) (* (sin delta) (+ (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))) (pow (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)) 2))))) (* (pow (cos delta) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))))))))) (* (pow (cos delta) 2) (* (pow (cos theta) 2) (* (pow (sin delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))))))) (* (pow (cos delta) 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (pow (cos delta) 4)))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (+ (* -1 (* phi1 (* (pow (cos delta) 3) (* (cos theta) (sin delta))))) (pow (cos delta) 4))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* (pow (cos delta) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))) (* (pow (cos delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))))) (* (pow (cos delta) 3) (* (cos theta) (sin delta))))) (pow (cos delta) 4))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* phi1 (- (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))))) (* (pow (cos delta) 2) (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))))) (* (pow (cos delta) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (pow (cos delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))))) (* (pow (cos delta) 3) (* (cos theta) (sin delta))))) (pow (cos delta) 4))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (* -1 (* phi1 (* (pow (cos delta) 3) (* (cos theta) (sin delta)))))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (* phi1 (- (* phi1 (- (* (pow (cos delta) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))) (* (pow (cos delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))))) (* (pow (cos delta) 3) (* (cos theta) (sin delta)))))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (* phi1 (- (* phi1 (- (+ (* phi1 (- (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))))) (* (pow (cos delta) 2) (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))))) (* (pow (cos delta) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (pow (cos delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))))) (* (pow (cos delta) 3) (* (cos theta) (sin delta)))))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (* phi1 (- (* phi1 (- (+ (* phi1 (- (+ (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))))) (* phi1 (- (+ (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))) (pow (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)) 2)) (* (pow (cos delta) 2) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (pow (cos delta) 2)) (pow (cos delta) 2)))))))) (* (pow (cos delta) 2) (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))))) (* (pow (cos delta) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (pow (cos delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))))) (* (pow (cos delta) 3) (* (cos theta) (sin delta)))))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (* (pow phi1 2) (* (pow (cos delta) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (* (pow phi1 2) (+ (* 2 (* phi1 (* (cos delta) (* (cos theta) (* (sin delta) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))))))) (* (pow (cos delta) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (* (pow phi1 2) (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))))) (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))) (pow (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)) 2))))) (* (pow (cos delta) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (* (pow phi1 2) (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))))) (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))) (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (pow (cos delta) 2)) (pow (cos delta) 2)))))))) (* 2 (* (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))))) (pow (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)) 2)))))) (* (pow (cos delta) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (* phi1 (* (pow (cos delta) 3) (* (cos theta) (sin delta))))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (* phi1 (+ (* phi1 (* (pow (cos delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))) (* (pow (cos delta) 3) (* (cos theta) (sin delta)))))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (* (pow (cos delta) 2) (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (pow (cos delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))))) (* (pow (cos delta) 3) (* (cos theta) (sin delta)))))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* phi1 (* (pow (cos delta) 2) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (pow (cos delta) 2)) (pow (cos delta) 2)))))) (* (pow (cos delta) 2) (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))))) (* (pow (cos delta) 2) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))))) (* (pow (cos delta) 3) (* (cos theta) (sin delta)))))))
#s(approx (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (cos delta)))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (+ (cos delta) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta)))))) (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* phi1 (- (* -1 (/ (* (pow (cos theta) 3) (pow (sin delta) 3)) (pow (cos delta) 2))) (+ (* -1 (/ (* (cos theta) (* (sin delta) (+ (cos delta) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta)))))) (cos delta))) (+ (* -1 (/ (* (cos theta) (* (sin delta) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))) (pow (cos delta) 2))) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* 2 (* (cos theta) (sin delta))))))))) (+ (cos delta) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (cos delta)))))) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (pow (cos delta) 2)))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* phi1 (* (cos delta) (* (cos theta) (sin delta)))) (pow (cos delta) 2))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2))) (* (cos delta) (* (cos theta) (sin delta))))) (pow (cos delta) 2))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* (cos delta) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (+ (* (pow (cos theta) 2) (pow (sin delta) 2)) (pow (cos delta) 2)))) (* (cos delta) (* (cos theta) (sin delta))))) (pow (cos delta) 2))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2)))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))))
#s(approx (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))
#s(approx (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos theta) (sin delta)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))
#s(approx (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (+ (* phi1 (- (* -1 (* phi1 (+ (cos delta) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (* (cos theta) (sin delta)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))
#s(approx (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* phi1 (- (* -1 (/ (* (pow (cos theta) 3) (pow (sin delta) 3)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))) (+ (* -1 (/ (* (cos theta) (* (sin delta) (+ (cos delta) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* -1 (/ (* (cos theta) (* (sin delta) (+ (* (cos delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* 2 (/ (* (cos delta) (* (cos theta) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))))))) (+ (cos delta) (+ (* -1 (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (/ (* (pow (cos theta) 2) (pow (sin delta) 2)) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (* (cos theta) (sin delta)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))
#s(approx (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3)))
#s(approx (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (+ (* -1 (* (pow phi1 3) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3))))
#s(approx (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 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) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3))))
#s(approx (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (+ (* (pow phi1 3) (- (* phi1 (- (* -1 (* phi1 (+ (* -1 (* (pow (cos theta) 3) (pow (sin delta) 3))) (+ (* 2 (* (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* (cos theta) (* (sin delta) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))))) (+ (* 2 (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos delta) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 3) (pow (sin delta) 3)))) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3))))
#s(approx (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2)))
#s(approx (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* phi1 (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))
#s(approx (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* (cos delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))
#s(approx (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))) (+ (* -1/6 (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))) (* 2 (* (cos delta) (* (cos theta) (sin delta))))))) (+ (* (cos delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* (cos delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))) (+ (* -1/6 (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))) (* 2 (* (cos delta) (* (cos theta) (sin delta))))))) (+ (* (cos delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))) (+ (* -1/6 (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))) (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (cos delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))))))) (+ (* (cos delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))))
#s(approx (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* phi1 (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))))
#s(approx (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* phi1 (+ (* phi1 (* (cos delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))))
#s(approx (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))) (* -1/6 (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (* (cos delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))) (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))))
#s(approx (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))) (+ (* -1/3 (* phi1 (* (cos delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))) (* -1/6 (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))))) (* (cos delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))) (* (cos theta) (* (sin delta) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (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 (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3)))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) #s(hole binary64 (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))))
#s(approx (* (sin phi1) (+ (* (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 phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* (cos phi1) (* (cos theta) (sin delta)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2)))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (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 (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))))
#s(approx (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3)))))
#s(approx (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))) #s(hole binary64 (/ (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 3)))))
#s(approx (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3)))))
#s(approx (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (/ (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 3)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))))))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) #s(hole binary64 (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 3))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) #s(hole binary64 (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 3)))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)))))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 2) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)))))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) 2)))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2))))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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)))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (cos delta) 2)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (/ (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))))
#s(approx (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 3)))))
#s(approx (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (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)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2)))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (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)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)))))
#s(approx (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (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)))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))
#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 (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (/ (- 1 (pow (sin phi1) 6)) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* delta (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (/ 1 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (pow (sin phi1) 6) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* delta (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (* delta (- (* -1 (/ (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (/ 1 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (pow (sin phi1) 6) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* delta (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (* delta (- (+ (* -1 (/ (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (* delta (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- (* -1 (/ (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2))) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (/ 1 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (pow (sin phi1) 6) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- 1 (pow (sin phi1) 6))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (pow (sin phi1) 6))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (pow (sin phi1) 6))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* -1 (* delta (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))))) (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (pow (sin phi1) 6))))
#s(approx (* (pow (cos delta) 2) (cos delta)) #s(hole binary64 1))
#s(approx (* (pow (cos delta) 2) (cos delta)) #s(hole binary64 (+ 1 (* -3/2 (pow delta 2)))))
#s(approx (* (pow (cos delta) 2) (cos delta)) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 7/8 (pow delta 2)) 3/2)))))
#s(approx (* (pow (cos delta) 2) (cos delta)) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 7/8 (* -61/240 (pow delta 2)))) 3/2)))))
#s(approx (pow (cos delta) 2) #s(hole binary64 1))
#s(approx (pow (cos delta) 2) #s(hole binary64 (+ 1 (* -1 (pow delta 2)))))
#s(approx (pow (cos delta) 2) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 1/3 (pow delta 2)) 1)))))
#s(approx (pow (cos delta) 2) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/3 (* -2/45 (pow delta 2)))) 1)))))
#s(approx (cos delta) #s(hole binary64 1))
#s(approx (cos delta) #s(hole binary64 (+ 1 (* -1/2 (pow delta 2)))))
#s(approx (cos delta) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2)))))
#s(approx (cos delta) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2)))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) #s(hole binary64 (pow (sin phi1) 6)))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) #s(hole binary64 (+ (* delta (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (pow (sin phi1) 6))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) #s(hole binary64 (+ (* delta (+ (* delta (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (pow (sin phi1) 6))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) #s(hole binary64 (+ (* delta (+ (* delta (+ (* delta (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))))) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (pow (sin phi1) 6))))
#s(approx (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (sin phi1) (+ (* (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 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 phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* -1/2 (* delta (sin phi1))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (* (cos phi1) (cos theta)))))) (* (cos phi1) (cos theta)))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* delta (* (cos phi1) (cos theta)))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* (cos phi1) (cos theta))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (cos theta))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* 1/120 (* (cos phi1) (cos theta)))))))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* delta (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* delta (- (+ (* -1 (pow (sin phi1) 2)) (+ (* delta (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) 1)) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* delta (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* delta (+ (* -1 (pow (sin phi1) 2)) (+ (* delta (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (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 (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* delta (+ (* -1 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* -1 (pow (sin phi1) 2)) (* delta (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (/ (- 1 (pow (sin phi1) 6)) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* delta (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (/ 1 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (pow (sin phi1) 6) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))
#s(approx (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* delta (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (* delta (- (* -1 (/ (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (/ 1 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (pow (sin phi1) 6) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))
#s(approx (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* delta (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (* delta (- (+ (* -1 (/ (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (* delta (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- (* -1 (/ (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2))) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (/ 1 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (pow (sin phi1) 6) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))
#s(approx (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (- 1 (pow (sin phi1) 6))))
#s(approx (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (pow (sin phi1) 6))))
#s(approx (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (pow (sin phi1) 6))))
#s(approx (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* -1 (* delta (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))))) (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (pow (sin phi1) 6))))
#s(approx (pow (cos delta) 3) #s(hole binary64 1))
#s(approx (pow (cos delta) 3) #s(hole binary64 (+ 1 (* -3/2 (pow delta 2)))))
#s(approx (pow (cos delta) 3) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 7/8 (pow delta 2)) 3/2)))))
#s(approx (pow (cos delta) 3) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 7/8 (* -61/240 (pow delta 2)))) 3/2)))))
#s(approx (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (pow (sin phi1) 6)))
#s(approx (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* delta (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))) (pow (sin phi1) 6))))
#s(approx (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* delta (+ (* delta (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (pow (sin phi1) 6))))
#s(approx (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* delta (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))))) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (pow (sin phi1) 6))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (pow (sin phi1) 4)))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* 2 (* delta (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))))) (pow (sin phi1) 4))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* delta (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (pow (sin phi1) 4))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* delta (+ (* delta (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (pow (sin phi1) 4))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))) #s(hole binary64 (/ (* (- 1 (pow (sin phi1) 6)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))) #s(hole binary64 (+ (* delta (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (/ (* (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (- 1 (pow (sin phi1) 6)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (pow (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) 2)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))) #s(hole binary64 (+ (* delta (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (+ (* delta (- (+ (* -1 (/ (* (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ 2 (+ (* -1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3))))) (+ (/ (* (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (/ (* (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (- 1 (pow (sin phi1) 6)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (pow (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) 2)))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3))) (/ (* (- 1 (pow (sin phi1) 6)) (* (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (- (+ (* 2 (* (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (* (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) 3))) (pow (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) 2))))) (/ (* (- 1 (pow (sin phi1) 6)) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3))))) (/ (* (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (- 1 (pow (sin phi1) 6)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (pow (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) 2)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))) #s(hole binary64 (+ (* delta (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (+ (* delta (- (+ (* -1 (/ (* (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (+ (* delta (- (+ (* -1 (/ (* (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (- (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ 2 (+ (* -1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* 2 (* (+ (* -1 (pow (sin phi1) 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)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (* 2 (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (* -1 (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))))) (+ (/ (* (+ (* 2 (* (+ (* -1 (pow (sin phi1) 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)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2))) (* (+ (* 2 (* (+ (* -1 (pow (sin phi1) 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)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (* 2 (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))) (* (- 1 (pow (sin phi1) 6)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (pow (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) 2)) (+ (/ (* (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (- (+ (* -1 (/ (* (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ 2 (+ (* -1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3))))) (+ (/ (* (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (/ (* (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (- 1 (pow (sin phi1) 6)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (pow (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) 2)))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3))) (/ (* (- 1 (pow (sin phi1) 6)) (* (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (- (+ (* 2 (* (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (* (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) 3))) (pow (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) 2))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3))) (/ (* (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (/ (* (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (- 1 (pow (sin phi1) 6)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (pow (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) 2))) (- (+ (* 2 (* (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (* (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) 3)) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3))))))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ 2 (+ (* -1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))))) (+ (/ (* (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))) (/ (* (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (- 1 (pow (sin phi1) 6)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (pow (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) 2)))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3))) (/ (* (- 1 (pow (sin phi1) 6)) (* (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (- (+ (* 2 (* (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (* (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) 3))) (pow (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) 2))))) (/ (* (- 1 (pow (sin phi1) 6)) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3))))) (/ (* (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (- 1 (pow (sin phi1) 6)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (pow (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) 2)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3))))))
#s(approx (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- 1 (pow (sin phi1) 6))))
#s(approx (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ 1 (* -1 (* delta (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (pow (sin phi1) 6))))
#s(approx (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (pow (sin phi1) 6))))
#s(approx (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* -1 (* delta (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))))) (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))))))) (pow (sin phi1) 6))))
#s(approx (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (/ (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (+ (* delta (- (+ (* 2 (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (+ (/ 1 (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))))
#s(approx (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (+ (* delta (- (+ (* 2 (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (* delta (- (+ (* 2 (/ (* (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))) (+ (* 3 (/ 1 (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) (- (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ 2 (+ (* -1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))) (pow (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)) (/ (* (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (- (+ (* 2 (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))) (/ (* (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (+ (/ 1 (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))))
#s(approx (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (+ (* delta (- (+ (* 2 (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (* delta (- (+ (* 2 (/ (* (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (* delta (- (+ (* 2 (/ (* (+ (* -1 (pow (sin phi1) 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)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (* 2 (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))) (+ (/ (* (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) (- (+ (* 2 (* (+ (* -1 (pow (sin phi1) 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)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (* 2 (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (* -1 (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))))) (pow (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)) (+ (/ (* (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (- (+ (* 2 (/ (* (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))) (+ (* 3 (/ 1 (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) (- (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ 2 (+ (* -1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))) (pow (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)) (/ (* (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (- (+ (* 2 (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (- (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ 2 (+ (* -1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (- (+ (* 2 (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))) (+ (/ (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))) (+ (* 3 (/ 1 (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) (- (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ 2 (+ (* -1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))) (pow (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)) (/ (* (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (- (+ (* 2 (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))) (/ (* (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)) (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (+ (/ 1 (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3) (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) #s(hole binary64 (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (+ (* delta (- (+ (* 2 (* (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (* (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) 3)) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (+ (* delta (- (+ (* 2 (* (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* delta (+ (* 2 (* (+ (* -1 (pow (sin phi1) 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)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2))) (* (+ (* 2 (* (+ (* -1 (pow (sin phi1) 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)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (* 2 (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))) (+ (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (* (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))) 3)) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))))
#s(approx (pow (pow (cos delta) 2) 3) #s(hole binary64 1))
#s(approx (pow (pow (cos delta) 2) 3) #s(hole binary64 (+ 1 (* -3 (pow delta 2)))))
#s(approx (pow (pow (cos delta) 2) 3) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 4 (pow delta 2)) 3)))))
#s(approx (pow (pow (cos delta) 2) 3) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 4 (* -47/15 (pow delta 2)))) 3)))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) #s(hole binary64 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3)))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) #s(hole binary64 (+ (* delta (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) #s(hole binary64 (+ (* delta (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (+ (* delta (+ (* 2 (* (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (* (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) #s(hole binary64 (+ (* delta (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (+ (* delta (+ (* 2 (* (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* delta (+ (* 2 (* (+ (* -1 (pow (sin phi1) 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)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2))) (* (+ (* 2 (* (+ (* -1 (pow (sin phi1) 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)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (* 2 (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))) (+ (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (* (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))) (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 3))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (- (+ 1 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (- (+ 1 (+ (* delta (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (- (+ 1 (+ (* delta (- (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (* delta (- (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ 2 (+ (* -1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* -1 (pow (sin phi1) 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)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (- (+ 1 (+ (* delta (- (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (* delta (- (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* delta (- (+ (* 2 (* (+ (* -1 (pow (sin phi1) 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)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (* 2 (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (* -1 (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2))) (+ 2 (+ (* -1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* -1 (pow (sin phi1) 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)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* delta (- (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* delta (- (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (* delta (- (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)) (+ (* -1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* -1 (pow (sin phi1) 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)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* delta (- (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (* delta (- (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* delta (- (+ (* 2 (* (+ (* -1 (pow (sin phi1) 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)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (* 2 (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (* -1 (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2))) (+ (* -1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* -1 (pow (sin phi1) 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)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2)))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* 2 (* delta (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* delta (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (* delta (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* delta (+ (* 2 (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (* delta (+ (* 2 (* (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (+ (* delta (+ (* 2 (* (+ (* -1 (pow (sin phi1) 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)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (* 2 (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))) (pow (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) 2)))))) (pow (+ (pow (sin phi1) 2) (pow (sin phi1) 4)) 2))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* delta (+ (* -1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* delta (+ (* -1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) (+ (* -1 (pow (sin phi1) 2)) (+ (* delta (+ (* -1 (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (/ (- 1 (pow (sin phi1) 6)) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* delta (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (/ 1 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (pow (sin phi1) 6) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* delta (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (* delta (- (* -1 (/ (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (/ 1 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (pow (sin phi1) 6) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* delta (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (* delta (- (+ (* -1 (/ (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (* delta (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- (* -1 (/ (+ 3/2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (sin phi1) 3)) (+ (* 2 (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (sin phi1)))) (* (sin phi1) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2))) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))) (/ (* (- 1 (pow (sin phi1) 6)) (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))))) (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1)))) (- 1 (pow (sin phi1) 6))) (pow (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))) 2)))) (/ 1 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))) (/ (pow (sin phi1) 6) (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ 1 (+ (pow (sin phi1) 2) (pow (sin phi1) 4)))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (cos phi1) (* (cos theta) (sin phi1))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* delta (- (+ (* -1 (pow (sin phi1) 2)) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) 1)) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ 1 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* delta (- (+ (* -1 (pow (sin phi1) 2)) (+ (* delta (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin phi1)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) 1)) (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ (pow (sin phi1) 2) (pow (sin phi1) 4))))))
#s(approx (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) #s(hole binary64 1))
#s(approx (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) #s(hole binary64 (+ 1 (* -1/2 (pow delta 2)))))
#s(approx (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2)))))
#s(approx (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2)))))
#s(approx (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) #s(hole binary64 -1))
#s(approx (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) #s(hole binary64 (- (pow delta 2) 1)))
#s(approx (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) #s(hole binary64 (- (* (pow delta 2) (+ 1 (* -1/3 (pow delta 2)))) 1)))
#s(approx (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) #s(hole binary64 (- (* (pow delta 2) (+ 1 (* (pow delta 2) (- (* 2/45 (pow delta 2)) 1/3)))) 1)))
#s(approx (* (* (sin delta) 0) (* (sin delta) 0)) #s(hole binary64 0))
#s(approx (* (sin delta) 0) #s(hole binary64 0))
#s(approx (* (* (cos delta) 1) (* (cos delta) 1)) #s(hole binary64 1))
#s(approx (* (* (cos delta) 1) (* (cos delta) 1)) #s(hole binary64 (+ 1 (* -1 (pow delta 2)))))
#s(approx (* (* (cos delta) 1) (* (cos delta) 1)) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 1/3 (pow delta 2)) 1)))))
#s(approx (* (* (cos delta) 1) (* (cos delta) 1)) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/3 (* -2/45 (pow delta 2)))) 1)))))
#s(approx (* (cos delta) 1) #s(hole binary64 1))
#s(approx (* (cos delta) 1) #s(hole binary64 (+ 1 (* -1/2 (pow delta 2)))))
#s(approx (* (cos delta) 1) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2)))))
#s(approx (* (cos delta) 1) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2)))))
#s(approx (- (* (sin delta) 0) (* (cos delta) 1)) #s(hole binary64 -1))
#s(approx (- (* (sin delta) 0) (* (cos delta) 1)) #s(hole binary64 (- (* 1/2 (pow delta 2)) 1)))
#s(approx (- (* (sin delta) 0) (* (cos delta) 1)) #s(hole binary64 (- (* (pow delta 2) (+ 1/2 (* -1/24 (pow delta 2)))) 1)))
#s(approx (- (* (sin delta) 0) (* (cos delta) 1)) #s(hole binary64 (- (* (pow delta 2) (+ 1/2 (* (pow delta 2) (- (* 1/720 (pow delta 2)) 1/24)))) 1)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (* (cos phi1) (sin theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (/ (- (pow (sin (* 1/2 (PI))) 3) (pow (sin phi1) 6)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))))
#s(approx (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* delta (- (+ (* 2 (/ (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (/ (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* 2 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1)))))) (- (pow (sin (* 1/2 (PI))) 3) (pow (sin phi1) 6))) (pow (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))) 2)) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))))) (/ (pow (sin (* 1/2 (PI))) 3) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (/ (pow (sin phi1) 6) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2)))))))
#s(approx (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* delta (- (+ (* 2 (/ (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (+ (* delta (- (+ (* -1/2 (/ (pow (sin (* 1/2 (PI))) 3) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (+ (* 2 (/ (* (pow (cos (* 1/2 (PI))) 2) (sin (* 1/2 (PI)))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (/ (* (sin (* 1/2 (PI))) (+ (* -1 (pow (sin (* 1/2 (PI))) 2)) (pow (cos (* 1/2 (PI))) 2))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2)))))) (+ (/ (* (+ (* -1 (pow (sin (* 1/2 (PI))) 2)) (+ (* (sin phi1) (+ (* -1 (* (sin phi1) (sin (* 1/2 (PI))))) (* (cos phi1) (* (cos theta) (cos (* 1/2 (PI))))))) (+ (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (pow (cos (* 1/2 (PI))) 2)))) (- (pow (sin (* 1/2 (PI))) 3) (pow (sin phi1) 6))) (pow (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))) 2)) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* 2 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1)))))) (- (+ (* 2 (/ (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (/ (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* 2 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1)))))) (- (pow (sin (* 1/2 (PI))) 3) (pow (sin phi1) 6))) (pow (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))) 2)) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 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) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2)))))))) (/ (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2)))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* 2 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1)))))) (- (pow (sin (* 1/2 (PI))) 3) (pow (sin phi1) 6))) (pow (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))) 2)) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))))) (/ (pow (sin (* 1/2 (PI))) 3) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (/ (pow (sin phi1) 6) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2)))))))
#s(approx (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* delta (- (+ (* 2 (/ (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (+ (* delta (- (+ (* -1/2 (/ (pow (sin (* 1/2 (PI))) 3) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (+ (* 2 (/ (* (pow (cos (* 1/2 (PI))) 2) (sin (* 1/2 (PI)))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (+ (* delta (- (+ (* -1 (/ (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (+ (* -1/6 (/ (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (+ (/ (* (cos (* 1/2 (PI))) (+ (* -1 (pow (sin (* 1/2 (PI))) 2)) (pow (cos (* 1/2 (PI))) 2))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2)))) (/ (* (sin (* 1/2 (PI))) (+ (* -1 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (* -1/3 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))))) (+ (/ (* (+ (* -1 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (+ (* -1/3 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (+ (* (sin phi1) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI)))))) (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin phi1))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI)))))) (* -1/6 (* (cos (* 1/2 (PI))) (sin phi1))))))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1))))))))) (- (pow (sin (* 1/2 (PI))) 3) (pow (sin phi1) 6))) (pow (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))) 2)) (+ (/ (* (+ (* -1 (pow (sin (* 1/2 (PI))) 2)) (+ (* (sin phi1) (+ (* -1 (* (sin phi1) (sin (* 1/2 (PI))))) (* (cos phi1) (* (cos theta) (cos (* 1/2 (PI))))))) (+ (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (pow (cos (* 1/2 (PI))) 2)))) (- (+ (* 2 (/ (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (/ (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* 2 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1)))))) (- (pow (sin (* 1/2 (PI))) 3) (pow (sin phi1) 6))) (pow (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))) 2)) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2)))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* 2 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1)))))) (- (+ (* -1/2 (/ (pow (sin (* 1/2 (PI))) 3) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (+ (* 2 (/ (* (pow (cos (* 1/2 (PI))) 2) (sin (* 1/2 (PI)))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (/ (* (sin (* 1/2 (PI))) (+ (* -1 (pow (sin (* 1/2 (PI))) 2)) (pow (cos (* 1/2 (PI))) 2))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2)))))) (+ (/ (* (+ (* -1 (pow (sin (* 1/2 (PI))) 2)) (+ (* (sin phi1) (+ (* -1 (* (sin phi1) (sin (* 1/2 (PI))))) (* (cos phi1) (* (cos theta) (cos (* 1/2 (PI))))))) (+ (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (pow (cos (* 1/2 (PI))) 2)))) (- (pow (sin (* 1/2 (PI))) 3) (pow (sin phi1) 6))) (pow (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))) 2)) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* 2 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1)))))) (- (+ (* 2 (/ (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (/ (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* 2 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1)))))) (- (pow (sin (* 1/2 (PI))) 3) (pow (sin phi1) 6))) (pow (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))) 2)) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 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) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2)))))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2)))) (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))))))) (/ (* (sin (* 1/2 (PI))) (+ (* -1 (pow (sin (* 1/2 (PI))) 2)) (pow (cos (* 1/2 (PI))) 2))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))))) (+ (/ (* (+ (* -1 (pow (sin (* 1/2 (PI))) 2)) (+ (* (sin phi1) (+ (* -1 (* (sin phi1) (sin (* 1/2 (PI))))) (* (cos phi1) (* (cos theta) (cos (* 1/2 (PI))))))) (+ (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (pow (cos (* 1/2 (PI))) 2)))) (- (pow (sin (* 1/2 (PI))) 3) (pow (sin phi1) 6))) (pow (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))) 2)) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* 2 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1)))))) (- (+ (* 2 (/ (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (/ (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* 2 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1)))))) (- (pow (sin (* 1/2 (PI))) 3) (pow (sin phi1) 6))) (pow (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))) 2)) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 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) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2)))))))) (/ (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2)))))) (+ (/ (* (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* 2 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1)))))) (- (pow (sin (* 1/2 (PI))) 3) (pow (sin phi1) 6))) (pow (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))) 2)) (/ (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))))) (/ (pow (sin (* 1/2 (PI))) 3) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))) (/ (pow (sin phi1) 6) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2)))))))
#s(approx (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (pow (sin (* 1/2 (PI))) 3) (pow (sin phi1) 6))))
#s(approx (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ (* delta (- (+ (* 2 (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2))) (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (pow (sin (* 1/2 (PI))) 3)) (pow (sin phi1) 6))))
#s(approx (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ (* delta (- (+ (* 2 (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2))) (+ (* delta (- (+ (* -1/2 (pow (sin (* 1/2 (PI))) 3)) (+ (* 2 (* (pow (cos (* 1/2 (PI))) 2) (sin (* 1/2 (PI))))) (* (sin (* 1/2 (PI))) (+ (* -1 (pow (sin (* 1/2 (PI))) 2)) (pow (cos (* 1/2 (PI))) 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))))))))) (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (pow (sin (* 1/2 (PI))) 3)) (pow (sin phi1) 6))))
#s(approx (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ (* delta (- (+ (* 2 (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2))) (+ (* delta (- (+ (* -1/2 (pow (sin (* 1/2 (PI))) 3)) (+ (* 2 (* (pow (cos (* 1/2 (PI))) 2) (sin (* 1/2 (PI))))) (+ (* delta (- (+ (* -1 (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2))) (+ (* -1/6 (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2))) (+ (* (cos (* 1/2 (PI))) (+ (* -1 (pow (sin (* 1/2 (PI))) 2)) (pow (cos (* 1/2 (PI))) 2))) (* (sin (* 1/2 (PI))) (+ (* -1 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (* -1/3 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI)))))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (+ (* (cos phi1) (* (cos theta) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (sin phi1) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))))) (* (sin (* 1/2 (PI))) (+ (* -1 (pow (sin (* 1/2 (PI))) 2)) (pow (cos (* 1/2 (PI))) 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))))))))) (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)))) (* (pow (sin phi1) 3) (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (pow (sin phi1) 2))))))) (pow (sin (* 1/2 (PI))) 3)) (pow (sin phi1) 6))))
#s(approx (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) #s(hole binary64 (pow (sin (* 1/2 (PI))) 3)))
#s(approx (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2))) (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2)))) (pow (sin (* 1/2 (PI))) 3))))
#s(approx (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2))) (+ (* delta (+ (* -1/2 (pow (sin (* 1/2 (PI))) 3)) (+ (* 2 (* (pow (cos (* 1/2 (PI))) 2) (sin (* 1/2 (PI))))) (* (sin (* 1/2 (PI))) (+ (* -1 (pow (sin (* 1/2 (PI))) 2)) (pow (cos (* 1/2 (PI))) 2)))))) (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2))))) (pow (sin (* 1/2 (PI))) 3))))
#s(approx (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2))) (+ (* delta (+ (* -1/2 (pow (sin (* 1/2 (PI))) 3)) (+ (* 2 (* (pow (cos (* 1/2 (PI))) 2) (sin (* 1/2 (PI))))) (+ (* delta (+ (* -1 (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2))) (+ (* -1/6 (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2))) (+ (* (cos (* 1/2 (PI))) (+ (* -1 (pow (sin (* 1/2 (PI))) 2)) (pow (cos (* 1/2 (PI))) 2))) (* (sin (* 1/2 (PI))) (+ (* -1 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (* -1/3 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))))))))) (* (sin (* 1/2 (PI))) (+ (* -1 (pow (sin (* 1/2 (PI))) 2)) (pow (cos (* 1/2 (PI))) 2))))))) (* (cos (* 1/2 (PI))) (pow (sin (* 1/2 (PI))) 2))))) (pow (sin (* 1/2 (PI))) 3))))
#s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* delta (cos (* 1/2 (PI)))))))
#s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (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) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (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 (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* delta (sin (PI))))))
#s(approx (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* delta (+ (sin (PI)) (* -1/2 (* delta (sin (* 1/2 (PI))))))))))
#s(approx (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* delta (+ (sin (PI)) (* delta (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* delta (sin (PI)))))))))))
#s(approx (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta)) #s(hole binary64 (* delta (sin (PI)))))
#s(approx (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta)) #s(hole binary64 (* delta (+ (sin (PI)) (* -1/6 (* (pow delta 2) (sin (PI))))))))
#s(approx (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta)) #s(hole binary64 (* delta (+ (sin (PI)) (* (pow delta 2) (+ (* -1/6 (sin (PI))) (* 1/120 (* (pow delta 2) (sin (PI))))))))))
#s(approx (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta)) #s(hole binary64 (* delta (+ (sin (PI)) (* (pow delta 2) (+ (* -1/6 (sin (PI))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin (PI)))) (* 1/120 (sin (PI)))))))))))
#s(approx (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2)))))
#s(approx (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* 2 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1))))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))))
#s(approx (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* 2 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (+ (* delta (+ (* -1 (pow (sin (* 1/2 (PI))) 2)) (+ (* (sin phi1) (+ (* -1 (* (sin phi1) (sin (* 1/2 (PI))))) (* (cos phi1) (* (cos theta) (cos (* 1/2 (PI))))))) (+ (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (pow (cos (* 1/2 (PI))) 2))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1)))))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))))
#s(approx (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* 2 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (+ (* delta (+ (* -1 (pow (sin (* 1/2 (PI))) 2)) (+ (* delta (+ (* -1 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (+ (* -1/3 (* (cos (* 1/2 (PI))) (sin (* 1/2 (PI))))) (+ (* (sin phi1) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI)))))) (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin phi1))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI)))))) (* -1/6 (* (cos (* 1/2 (PI))) (sin phi1))))))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))))) (+ (* (sin phi1) (+ (* -1 (* (sin phi1) (sin (* 1/2 (PI))))) (* (cos phi1) (* (cos theta) (cos (* 1/2 (PI))))))) (+ (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (pow (cos (* 1/2 (PI))) 2)))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1)))))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (+ (pow (sin phi1) 4) (pow (sin (* 1/2 (PI))) 2))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (pow (sin phi1) 4))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1)))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (pow (sin phi1) 4)))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* delta (+ (* (sin phi1) (+ (* -1 (* (sin phi1) (sin (* 1/2 (PI))))) (* (cos phi1) (* (cos theta) (cos (* 1/2 (PI))))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1))))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (pow (sin phi1) 4)))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (+ (* delta (+ (* delta (+ (* (sin phi1) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI)))))) (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin phi1))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI)))))) (* -1/6 (* (cos (* 1/2 (PI))) (sin phi1))))))) (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (+ (* (sin phi1) (+ (* -1 (* (sin phi1) (sin (* 1/2 (PI))))) (* (cos phi1) (* (cos theta) (cos (* 1/2 (PI))))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1))))))) (+ (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))) (pow (sin phi1) 4)))))
#s(approx (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* (pow (sin phi1) 2) (sin (* 1/2 (PI))))))
#s(approx (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* delta (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1))))) (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))))))
#s(approx (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* delta (+ (* delta (* (sin phi1) (+ (* -1 (* (sin phi1) (sin (* 1/2 (PI))))) (* (cos phi1) (* (cos theta) (cos (* 1/2 (PI)))))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1)))))) (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))))))
#s(approx (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* delta (+ (* delta (+ (* delta (* (sin phi1) (+ (* -1/2 (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI)))))) (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin phi1))) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI)))))) (* -1/6 (* (cos (* 1/2 (PI))) (sin phi1)))))))) (* (sin phi1) (+ (* -1 (* (sin phi1) (sin (* 1/2 (PI))))) (* (cos phi1) (* (cos theta) (cos (* 1/2 (PI))))))))) (* (sin phi1) (+ (* (cos phi1) (* (cos theta) (sin (* 1/2 (PI))))) (* (cos (* 1/2 (PI))) (sin phi1)))))) (* (pow (sin phi1) 2) (sin (* 1/2 (PI)))))))
#s(approx (sin delta) #s(hole binary64 (sin delta)))
#s(approx (* (pow (cos delta) 2) (cos delta)) #s(hole binary64 (pow (cos delta) 3)))
#s(approx (pow (cos delta) 2) #s(hole binary64 (pow (cos delta) 2)))
#s(approx (cos delta) #s(hole binary64 (cos delta)))
#s(approx (pow (cos delta) 3) #s(hole binary64 (pow (cos delta) 3)))
#s(approx (pow (pow (cos delta) 2) 3) #s(hole binary64 (pow (cos delta) 6)))
#s(approx (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) #s(hole binary64 (cos delta)))
#s(approx (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) #s(hole binary64 (* -1 (pow (cos delta) 2))))
#s(approx (* (* (cos delta) 1) (* (cos delta) 1)) #s(hole binary64 (pow (cos delta) 2)))
#s(approx (* (cos delta) 1) #s(hole binary64 (cos delta)))
#s(approx (- (* (sin delta) 0) (* (cos delta) 1)) #s(hole binary64 (* -1 (cos delta))))
#s(approx (* (sin theta) (sin delta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) #s(hole binary64 (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3)))
#s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))
#s(approx (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta))) #s(hole binary64 (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (sin delta) (sin (PI))))))
#s(approx (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta)) #s(hole binary64 (* (sin delta) (sin (PI)))))
#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 (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (/ (pow (cos delta) 3) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (/ (pow (cos delta) 3) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (+ (/ (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)) (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (/ (pow (cos delta) 3) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ (* -1 (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (pow (cos delta) 3)) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (pow (cos delta) 3)) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ (* (pow theta 2) (- (* (pow theta 2) (- (* -1 (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (pow (cos delta) 3)) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) #s(hole binary64 (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) #s(hole binary64 (+ (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) #s(hole binary64 (+ (* (pow theta 2) (+ (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) #s(hole binary64 (+ (* (pow theta 2) (+ (* (pow theta 2) (+ (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (* (sin phi1) (+ (* (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 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 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 phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta)))))))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (* (cos phi1) (sin delta))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta)))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta)))))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) #s(hole binary64 (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta))))))))))
#s(approx (cos theta) #s(hole binary64 1))
#s(approx (cos theta) #s(hole binary64 (+ 1 (* -1/2 (pow theta 2)))))
#s(approx (cos theta) #s(hole binary64 (+ 1 (* (pow theta 2) (- (* 1/24 (pow theta 2)) 1/2)))))
#s(approx (cos theta) #s(hole binary64 (+ 1 (* (pow theta 2) (- (* (pow theta 2) (+ 1/24 (* -1/720 (pow theta 2)))) 1/2)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow theta 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow theta 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (+ (* (pow theta 2) (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow theta 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow theta 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (+ (* (pow theta 2) (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (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 phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (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))))) (* (pow theta 2) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (pow theta 2) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (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))))) (* (pow theta 2) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))))))
#s(approx (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (/ (pow (cos delta) 3) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))))))
#s(approx (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (/ (pow (cos delta) 3) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))))))
#s(approx (/ (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (+ (/ (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)) (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (/ (pow (cos delta) 3) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))))))
#s(approx (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (- (+ (* -1 (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (pow (cos delta) 3)) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (pow (cos delta) 3)) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (pow (cos delta) 3) (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* (pow theta 2) (- (* -1 (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (pow (cos delta) 3)) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))
#s(approx (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (pow theta 2) (+ (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (* (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (pow theta 2) (+ (* (pow theta 2) (+ (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* -1 (* (pow theta 2) (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* (pow theta 2) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* (pow theta 2) (+ (* (pow theta 2) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))) #s(hole binary64 (/ (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (/ (* (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (/ (* (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (pow (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) 2)))) (/ (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (/ (* (- (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (* (pow (cos delta) 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3))))) (+ (/ (* (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (/ (* (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (/ (* (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (pow (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) 2)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3))) (/ (* (+ (* 2 (* (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (+ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (pow (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) 2))))) (/ (* (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3))))) (/ (* (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (pow (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) 2)))) (/ (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (* (pow (cos delta) 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (/ (* (- (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (* 2 (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (* (pow (cos delta) 2) (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))))) (+ (/ (* (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2))) (+ (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (* 2 (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (pow (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) 2)) (+ (/ (* (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (/ (* (- (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (* (pow (cos delta) 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3))))) (+ (/ (* (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (/ (* (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (/ (* (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (pow (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) 2)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3))) (/ (* (+ (* 2 (* (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (+ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (pow (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) 2))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3))) (/ (* (+ (* 2 (* (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (+ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (/ (* (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (/ (* (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (pow (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) 2)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3))))))) (/ (* (- (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (* (pow (cos delta) 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))))) (+ (/ (* (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (* (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (/ (* (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))) (/ (* (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (pow (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) 2)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3))) (/ (* (+ (* 2 (* (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (+ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (pow (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) 2))))) (/ (* (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3))))) (/ (* (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))))) (pow (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) 2)))) (/ (* (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3))))))
#s(approx (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ (* -1 (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (pow (cos delta) 3)) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (pow (cos delta) 3)) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ (* (pow theta 2) (- (* (pow theta 2) (- (* -1 (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (pow (cos delta) 3)) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (/ (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))
#s(approx (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* 2 (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (/ (* (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (pow (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)))) (+ (/ (pow (cos delta) 6) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (/ (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))))
#s(approx (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* 2 (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (* (pow theta 2) (- (+ (* 2 (/ (* (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (/ (* (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (+ (/ (* (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) (- (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (* (pow (cos delta) 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))))) (pow (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)) (/ (* (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (- (+ (* 2 (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (/ (* (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (pow (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (/ (* (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (pow (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)))) (+ (/ (pow (cos delta) 6) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (/ (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))))
#s(approx (/ (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) #s(hole binary64 (+ (* (pow theta 2) (- (+ (* 2 (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (* (pow theta 2) (- (+ (* 2 (/ (* (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (* (pow theta 2) (- (+ (* 2 (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (/ (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (/ (* (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (* 2 (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))) (+ (/ (* (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) (- (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (* 2 (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (* (pow (cos delta) 2) (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))))) (pow (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)) (+ (/ (* (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (- (+ (* 2 (/ (* (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (+ (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (/ (* (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (+ (/ (* (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) (- (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (* (pow (cos delta) 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))))) (pow (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)) (/ (* (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (- (+ (* 2 (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (/ (* (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (pow (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (/ (* (- (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (* (pow (cos delta) 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (- (+ (* 2 (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (/ (* (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (pow (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))))) (+ (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (/ (* (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))) (+ (/ (* (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) (- (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (* (pow (cos delta) 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))))) (pow (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)) (/ (* (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (- (+ (* 2 (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (/ (* (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (pow (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)))) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (/ (* (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)) (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (pow (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) 2)))) (+ (/ (pow (cos delta) 6) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (/ (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3) (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) #s(hole binary64 (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) #s(hole binary64 (+ (* (pow theta 2) (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) #s(hole binary64 (+ (* (pow theta 2) (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow theta 2) (+ (* 2 (* (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (+ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) #s(hole binary64 (+ (* (pow theta 2) (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow theta 2) (+ (* 2 (* (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (+ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (+ (* (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (pow theta 2) (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2))) (+ (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (* 2 (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))))))))) (+ (pow (cos delta) 6) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) #s(hole binary64 (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3)))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) #s(hole binary64 (+ (* (pow theta 2) (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) #s(hole binary64 (+ (* (pow theta 2) (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow theta 2) (+ (* 2 (* (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (+ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) #s(hole binary64 (+ (* (pow theta 2) (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow theta 2) (+ (* 2 (* (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (+ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (+ (* (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (pow theta 2) (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2))) (+ (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (* 2 (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))))))))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 3))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (- (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow theta 2) (- (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (* (pow (cos delta) 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow theta 2) (- (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (+ (* (pow theta 2) (- (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (* 2 (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (* (pow (cos delta) 2) (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2))) (* (pow (cos delta) 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (+ (pow (cos delta) 4) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow theta 2) (- (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)) (* (pow (cos delta) 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow theta 2) (- (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (+ (* (pow theta 2) (- (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (* 2 (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (* (pow (cos delta) 2) (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2))) (* (pow (cos delta) 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2)))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* 2 (* (pow theta 2) (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* (pow theta 2) (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow theta 2) (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* (pow theta 2) (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow theta 2) (+ (* 2 (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (+ (* (pow theta 2) (+ (* 2 (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (* 2 (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))) (pow (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) 2)))))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) 2))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* (pow theta 2) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))))) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* (pow theta 2) (+ (* (pow theta 2) (* (pow (cos delta) 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* (pow theta 2) (+ (* (pow theta 2) (+ (* (pow theta 2) (* (pow (cos delta) 2) (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))))) (* (pow (cos delta) 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))))) (* (pow (cos delta) 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))))) (* (pow (cos delta) 2) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (/ (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (/ (pow (cos delta) 3) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (/ (pow (cos delta) 3) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (+ (/ (* (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)) (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))) (/ (* (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))) (- (pow (cos delta) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))) 2)))) (/ (pow (cos delta) 3) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))) (/ (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2)))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow theta 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow theta 2) (+ (* 1/24 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (+ (* (pow theta 2) (+ (* -1/720 (* (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (cos delta) 2))))))
#s(approx (* (* (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 (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (/ (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))))
#s(approx (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))) 2)))) (/ (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))) (/ (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2)))))))
#s(approx (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))) 2)))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2)))) (/ (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (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 (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))) 2)))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))) 2)))) (/ (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))) (/ (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2)))))))
#s(approx (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))) (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))) 2)))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2)))) (/ (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (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 (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))) 2))))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2)))) (+ (/ (* (+ (* -1/720 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))) 2)) (/ (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))) 2)))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))))))) (+ (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (- (* -1 (/ (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))) 2)))) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2)))) (/ (* (+ (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (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 (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))) 2)))))) (/ (* (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))) (pow (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))) 2)))) (/ (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))) (/ (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)) (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2)))))))
#s(approx (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ (* -1 (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3)) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3)) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) #s(hole binary64 (- (+ (* (pow theta 2) (- (* (pow theta 2) (- (* -1 (* (pow theta 2) (* (pow (sin phi1) 3) (+ (* -1/2 (* (cos phi1) (* (sin delta) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (+ (* -1/24 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* -1/720 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (sin phi1) 3) (+ (* 1/24 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (+ (* 1/2 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* (pow (sin phi1) 3) (+ (* -1 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))) (* -1/2 (* (cos phi1) (* (sin delta) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 3)) (* (pow (sin phi1) 3) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 3)))))
#s(approx (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2)))))
#s(approx (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))))
#s(approx (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))) (* (pow theta 2) (+ (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))))
#s(approx (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))) (* (pow theta 2) (+ (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))) (+ (* (pow theta 2) (+ (* -1/720 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))))))) (+ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (pow (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))) 2))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))) (* (pow theta 2) (+ (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))) (* (pow theta 2) (+ (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))) (+ (* (pow theta 2) (+ (* -1/720 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))))
#s(approx (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))
#s(approx (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))))
#s(approx (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))))))))
#s(approx (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (sin phi1) (* (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta)))))))) (* 1/24 (* (cos phi1) (* (sin delta) (* (sin phi1) (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin delta))))))))))))))
#s(approx (sin theta) #s(hole binary64 (sin theta)))
#s(approx (cos theta) #s(hole binary64 (cos theta)))

Outputs
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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)))))) (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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))))))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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)))))) (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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)))))) (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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)))))) (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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)))))) (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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))))))))))
lambda1
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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)))))) (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(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 (neg.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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))))))) (neg.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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 (.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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)))))) (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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 (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 (neg.f64 (cos.f64 delta)) (neg.f64 (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 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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))))))
(-.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)))
(*.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)))
(*.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (cos.f64 delta)))
(*.f64 (fabs.f64 (cos.f64 delta)) (fabs.f64 (cos.f64 delta)))
(*.f64 (cos.f64 delta) (cos.f64 delta))
(pow.f64 (cos.f64 delta) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 delta delta)) (cos.f64 (-.f64 delta delta))) #s(literal 2 binary64))
(-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (cos.f64 delta)) #s(literal 2 binary64)))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) #s(literal 3 binary64))) (fma.f64 (neg.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64))) (neg.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64))) (-.f64 (pow.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64))))))
(fma.f64 (sin.f64 delta) #s(literal 0 binary64) (*.f64 (cos.f64 delta) #s(literal 1 binary64)))
(sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 delta))
(cos.f64 delta)
(+.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))
#s(literal 2 binary64)
(.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #s(literal 3 binary64)))
(.f64 (.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 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(.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 (.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))))))
(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))
(exp.f64 (.f64 (log.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)))
(.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 phi1)
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))
(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 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))
(sin.f64 (+.f64 theta (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 theta))
(cos.f64 theta)
#s(literal 3 binary64)
(/.f64 (neg.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (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)))))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (-.f64 (.f64 (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)))))) (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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (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 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (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)))))) #s(literal 3 binary64))) (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (-.f64 (.f64 (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)))))) (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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (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))))))))))
(fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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)))))))
(fma.f64 (fabs.f64 (cos.f64 delta)) (fabs.f64 (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)))))))
(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 (/.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 3 binary64)) (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (-.f64 (.f64 (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)))))) (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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (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 (pow.f64 (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)))))) #s(literal 3 binary64)) (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (-.f64 (.f64 (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)))))) (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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (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 (+.f64 (pow.f64 (.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))))) #s(literal 3 binary64)) (pow.f64 (.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 (.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 (.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 (.f64 (.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)))))) (.f64 (.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)))))))))
(fma.f64 (neg.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (neg.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 (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))))))
(fma.f64 (fabs.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (fabs.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 (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))))))
(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 (.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)))))
(/.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 (.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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)))))) (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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))))))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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)))))) (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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)))))) (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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)))))) (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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)))))) (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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))))))))))
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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)))))) (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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 (neg.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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))))))) (neg.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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 (.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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)))))) (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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 (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 (neg.f64 (cos.f64 delta)) (neg.f64 (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 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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))))))
(-.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)))
(*.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)))
(.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))) #s(literal 3 binary64)))
(.f64 (.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 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
(.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 (.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))))))
(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))
(exp.f64 (.f64 (log.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)))
(.f64 (neg.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (neg.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 (fabs.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (fabs.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 (.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)))))
(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 2 binary64))
(/.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 (.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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)))))) (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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))))))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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)))))) (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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)))))) (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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)))))) (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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)))))) (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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))))))))))
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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)))))) (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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 (neg.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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))))))) (neg.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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 (.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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)))))) (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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 (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 (neg.f64 (cos.f64 delta)) (neg.f64 (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 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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))))))
(-.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)))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (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)))))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (-.f64 (.f64 (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)))))) (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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (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 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (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)))))) #s(literal 3 binary64))) (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (-.f64 (.f64 (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)))))) (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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (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))))))))))
(fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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)))))))
(fma.f64 (fabs.f64 (cos.f64 delta)) (fabs.f64 (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)))))))
(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 (/.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 3 binary64)) (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (-.f64 (.f64 (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)))))) (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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (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 (pow.f64 (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)))))) #s(literal 3 binary64)) (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (-.f64 (.f64 (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)))))) (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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (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 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (-.f64 (.f64 (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)))))) (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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (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))))))))) (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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 (+.f64 (pow.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 3 binary64)) #s(literal 3 binary64)) (pow.f64 (pow.f64 (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)))))) #s(literal 3 binary64)) #s(literal 3 binary64))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 (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)))))) #s(literal 3 binary64)) (pow.f64 (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)))))) #s(literal 3 binary64))) (.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (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)))))) #s(literal 3 binary64))))))
(fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (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)))))) #s(literal 3 binary64)))
(fma.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (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)))))) #s(literal 3 binary64)))
(+.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (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)))))) #s(literal 3 binary64)))
(*.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)))
(pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 3 binary64))
(pow.f64 (cos.f64 delta) #s(literal 6 binary64))
(exp.f64 (*.f64 (log.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) #s(literal 3 binary64)))
(exp.f64 (*.f64 (log.f64 (cos.f64 delta)) #s(literal 6 binary64)))
(.f64 (.f64 (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)))))) (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))))))) (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 (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 (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)))))) (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))))))))
(pow.f64 (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)))))) #s(literal 3 binary64))
(exp.f64 (.f64 (log.f64 (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))))))) #s(literal 3 binary64)))
(/.f64 (+.f64 (pow.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (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)))))) (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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (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)))))))) #s(literal 3 binary64))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (.f64 (-.f64 (.f64 (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)))))) (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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (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 (.f64 (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)))))) (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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (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 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (.f64 (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)))))) (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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (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))))))))))))
(fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (-.f64 (.f64 (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)))))) (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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (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)))))))))
(fma.f64 (fabs.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (fabs.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (-.f64 (.f64 (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)))))) (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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (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)))))))))
(fma.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (-.f64 (.f64 (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)))))) (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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (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 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (.f64 (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)))))) (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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (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 (.f64 (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)))))) (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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (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 (neg.f64 (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))))))) (neg.f64 (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 (fabs.f64 (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))))))) (fabs.f64 (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 (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)))))) (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)))))))
(pow.f64 (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)))))) #s(literal 2 binary64))
(.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (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 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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)))))) (fma.f64 (-.f64 (/.f64 (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64))) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64))))) (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))))))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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)))))) (fma.f64 (-.f64 (/.f64 (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64))) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64))))) (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))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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)))))) (fma.f64 (-.f64 (/.f64 (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64))) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64))))) (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 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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)))))) (fma.f64 (-.f64 (/.f64 (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64))) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64))))) (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 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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)))))) (fma.f64 (-.f64 (/.f64 (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64))) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64))))) (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))))))))))
(atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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)))))) (fma.f64 (-.f64 (/.f64 (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64))) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64))))) (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 (neg.f64 (.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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))))))) (neg.f64 (fma.f64 (-.f64 (/.f64 (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64))) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64))))) (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 (.f64 (fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (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)))))) (fma.f64 (-.f64 (/.f64 (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64))) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64))))) (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 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (-.f64 (/.f64 (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64))) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64))))) (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 (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 (-.f64 (/.f64 (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64))) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64))))) (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 (+.f64 (pow.f64 (.f64 (-.f64 (/.f64 (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64))) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64))))) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (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)))))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (-.f64 (/.f64 (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64))) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64))))) (cos.f64 delta)) (.f64 (-.f64 (/.f64 (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64))) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64))))) (cos.f64 delta))) (-.f64 (.f64 (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)))))) (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 (.f64 (-.f64 (/.f64 (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64))) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64))))) (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))))))))))
(fma.f64 (-.f64 (/.f64 (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64))) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64))))) (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 (.f64 (-.f64 (/.f64 (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64))) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64))))) (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 (neg.f64 (-.f64 (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64))) (pow.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) #s(literal 2 binary64)))) (neg.f64 (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64))) (pow.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64))))
(-.f64 (/.f64 (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64))) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))))
(-.f64 (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64))) (pow.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) #s(literal 2 binary64)))
(.f64 (neg.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64))) (neg.f64 (*.f64 (sin.f64 delta) #s(literal 0 binary64))))
(.f64 (fabs.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64))) (fabs.f64 (*.f64 (sin.f64 delta) #s(literal 0 binary64))))
(.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (*.f64 (sin.f64 delta) #s(literal 0 binary64)))
(pow.f64 (*.f64 (sin.f64 delta) #s(literal 0 binary64)) #s(literal 2 binary64))
(*.f64 (sin.f64 delta) #s(literal 0 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 delta)) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 delta (PI.f64))) (cos.f64 (+.f64 delta (PI.f64)))) #s(literal 2 binary64))
#s(literal 0 binary64)
(.f64 (neg.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64))) (neg.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64))))
(.f64 (fabs.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64))) (fabs.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64))))
(.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) (*.f64 (cos.f64 delta) #s(literal 1 binary64)))
(pow.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) #s(literal 2 binary64))
(*.f64 (cos.f64 delta) #s(literal 1 binary64))
#s(literal 1 binary64)
(-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 (neg.f64 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (neg.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (fma.f64 (neg.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (neg.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 (neg.f64 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (neg.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (fma.f64 (neg.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (neg.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 (neg.f64 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (neg.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (fma.f64 (neg.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (neg.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 (neg.f64 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (neg.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (fma.f64 (neg.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (neg.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 (neg.f64 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (neg.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (fma.f64 (neg.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (neg.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 (neg.f64 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (neg.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (fma.f64 (neg.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (neg.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 (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 (neg.f64 (-.f64 (pow.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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)))) (neg.f64 (fma.f64 (neg.f64 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (neg.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (fma.f64 (neg.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (neg.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 (neg.f64 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (neg.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (fma.f64 (neg.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (neg.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) #s(literal 3 binary64)) (fma.f64 (neg.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (neg.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (fma.f64 (neg.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (neg.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 (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 (neg.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (neg.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (fma.f64 (neg.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (neg.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 (fma.f64 (neg.f64 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (neg.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (fma.f64 (neg.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (neg.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 (pow.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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)))
(.f64 (.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))
(.f64 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (.f64 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))
(pow.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) #s(literal 3 binary64))
(exp.f64 (.f64 (log.f64 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) #s(literal 3 binary64)))
#s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 (.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (.f64 (.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))
(fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))
(+.f64 (.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(*.f64 #s(literal 1/2 binary64) (PI.f64))
#s(literal 1/2 binary64)
(PI.f64)
(*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64))) delta)) (cos.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64))) delta))) #s(literal 2 binary64))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 0 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 1 binary64)))
(sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 0 binary64)) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 1 binary64)))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal 3 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))
(+.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))
(/.f64 (neg.f64 (PI.f64)) #s(literal -2 binary64))
(/.f64 (PI.f64) #s(literal 2 binary64))
(/.f64 (+.f64 (pow.f64 (.f64 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) #s(literal 3 binary64)) (pow.f64 (fma.f64 (neg.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (neg.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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))) (+.f64 (.f64 (.f64 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (.f64 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (-.f64 (.f64 (fma.f64 (neg.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (neg.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 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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)))))) (fma.f64 (neg.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (neg.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 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (fma.f64 (neg.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (neg.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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))))))))))
(fma.f64 (neg.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (neg.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (fma.f64 (neg.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (neg.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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)))))))
(fma.f64 (fabs.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (fabs.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (fma.f64 (neg.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (neg.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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)))))))
(fma.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (neg.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (neg.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (fma.f64 (neg.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (neg.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 (.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))))) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 (.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 (.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 (.f64 (.f64 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 (.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 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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)))))))))
(fma.f64 (neg.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (neg.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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))))))
(fma.f64 (fabs.f64 (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))) (fabs.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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))))))
(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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 (.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 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))))
#s(approx lambda1 lambda1)
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64)))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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 (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64)))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)))))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (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 (-.f64 (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) lambda1))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) lambda1))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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 (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64)))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))))))) lambda1))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) lambda1))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (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 (-.f64 (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))) lambda1))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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 (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64)))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (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 (-.f64 (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (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) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 delta) (sin.f64 theta))) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi1 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta)))))))))
#s(approx (* (cos phi1) (sin delta)) (sin.f64 delta))
#s(approx (* (cos phi1) (sin delta)) (+.f64 (sin.f64 delta) (.f64 #s(literal -1/2 binary64) (.f64 (*.f64 phi1 phi1) (sin.f64 delta)))))
#s(approx (* (cos phi1) (sin delta)) (+.f64 (sin.f64 delta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 delta) (.f64 #s(literal 1/24 binary64) (.f64 (*.f64 phi1 phi1) (sin.f64 delta)))))))
#s(approx (* (cos phi1) (sin delta)) (+.f64 (sin.f64 delta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 delta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi1 phi1) (sin.f64 delta)) (*.f64 #s(literal 1/24 binary64) (sin.f64 delta))))))))
#s(approx (cos phi1) #s(literal 1 binary64))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)))) #s(literal 1/2 binary64)))))
#s(approx phi1 phi1)
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (cos.f64 delta))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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 (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (cos.f64 delta)) (/.f64 (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (cos.f64 delta)))))) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (+.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (cos.f64 delta)) (/.f64 (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (cos.f64 delta)))))) (cos.f64 delta)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))))))) (+.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (cos.f64 delta)) (/.f64 (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (cos.f64 delta)))))) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 (.f64 phi1 phi1) phi1) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64)))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (fma.f64 (.f64 (.f64 phi1 phi1) phi1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64)))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (fma.f64 (.f64 (.f64 phi1 phi1) phi1) (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64)))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (.f64 (.f64 (.f64 phi1 phi1) phi1) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64)))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (.f64 (.f64 (.f64 phi1 phi1) phi1) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64))))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (.f64 (.f64 (.f64 phi1 phi1) phi1) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64))))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (.f64 (.f64 (.f64 phi1 phi1) phi1) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))))))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64))))))
#s(approx (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (.f64 phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (sin phi1) (+ (* (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 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 phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (.f64 phi1 (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.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 phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (fma.f64 phi1 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))) (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 delta)))))) (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (fma.f64 #s(literal -1/2 binary64) (.f64 (.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) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi1 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (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)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (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)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))) (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (fma.f64 phi1 (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))) (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))))) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (.f64 phi1 (.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (.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) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/3 binary64) (.f64 phi1 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (cos.f64 delta))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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 (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (cos.f64 delta)) (/.f64 (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (cos.f64 delta)))))) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (+.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (cos.f64 delta)) (/.f64 (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (cos.f64 delta)))))) (cos.f64 delta)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))))))) (+.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (cos.f64 delta)) (/.f64 (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (cos.f64 delta)))))) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 (.f64 phi1 phi1) phi1) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64)))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (fma.f64 (.f64 (.f64 phi1 phi1) phi1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64)))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (fma.f64 (.f64 (.f64 phi1 phi1) phi1) (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64)))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (.f64 (.f64 (.f64 phi1 phi1) phi1) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64)))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (.f64 (.f64 (.f64 phi1 phi1) phi1) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64))))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (.f64 (.f64 (.f64 phi1 phi1) phi1) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64))))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (.f64 (.f64 (.f64 phi1 phi1) phi1) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))))))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (.f64 (.f64 phi1 phi1) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal 2 binary64) (.f64 phi1 (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (.f64 (.f64 phi1 phi1) (fma.f64 phi1 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (.f64 (.f64 phi1 phi1) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 phi1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (+.f64 (.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (fma.f64 #s(literal -2/3 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))
#s(approx (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64)))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (cos.f64 delta))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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 (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 delta)) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (/.f64 (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (cos.f64 delta)))))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 (.f64 phi1 phi1) phi1) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64)))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (fma.f64 (.f64 (.f64 phi1 phi1) phi1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64)))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (fma.f64 (.f64 (.f64 phi1 phi1) phi1) (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64)))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (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)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))) (.f64 #s(literal -1 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)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 phi1 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))) (/.f64 (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64))) (cos.f64 delta)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (cos.f64 delta)) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 3 binary64)))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (fma.f64 (.f64 (.f64 phi1 phi1) phi1) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64)))) (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 3 binary64))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (fma.f64 (.f64 (.f64 phi1 phi1) phi1) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64))))) (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 3 binary64))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (fma.f64 (.f64 (.f64 phi1 phi1) phi1) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))) (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))))))) (.f64 (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))) (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64))))) (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 3 binary64))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) (.f64 (.f64 (.f64 phi1 phi1) phi1) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64))))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) (.f64 (.f64 (.f64 phi1 phi1) phi1) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64)))))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) (.f64 (.f64 (.f64 phi1 phi1) phi1) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))) (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))))))) (.f64 (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))) (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64)))))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) (.f64 (.f64 (.f64 phi1 phi1) phi1) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (fma.f64 phi1 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))) (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))) (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (fma.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))) (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))))))) (.f64 (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))))))) (fma.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))) (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))))))) (.f64 (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))) (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64)))))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (*.f64 (cos.f64 theta) (sin.f64 delta)))) (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta)))) (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 phi1 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))) (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta)))) (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 phi1 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))) (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 phi1 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (.f64 phi1 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))) (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))))))) (.f64 (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))) (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (.f64 phi1 phi1) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal 2 binary64) (.f64 phi1 (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (.f64 phi1 phi1) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))) (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))))))) (.f64 (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (.f64 phi1 phi1) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))) (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))))))) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))) (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (.f64 (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 phi1 (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 phi1 (fma.f64 phi1 (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))) (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))) (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (atan2 (* (* (cos phi1) (sin delta)) (sin theta)) (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (cos.f64 delta))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (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 (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (cos.f64 delta)) (/.f64 (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (cos.f64 delta)))))) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (+.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (cos.f64 delta)) (/.f64 (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (cos.f64 delta)))))) (cos.f64 delta)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))))))) (+.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (cos.f64 delta)) (/.f64 (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (cos.f64 delta)))))) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (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 (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))) (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (fma.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (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) (+.f64 (.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) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 theta) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (fma.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (/.f64 (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))) (.f64 (cos.f64 theta) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (+.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (/.f64 (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))))))) (+.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (/.f64 (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))) (.f64 (cos.f64 theta) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) #s(literal 3 binary64)))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (.f64 (.f64 phi1 phi1) phi1) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) #s(literal 3 binary64))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (fma.f64 (.f64 (.f64 phi1 phi1) phi1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) #s(literal 3 binary64))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (fma.f64 (.f64 (.f64 phi1 phi1) phi1) (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (.f64 (cos.f64 delta) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) #s(literal 3 binary64))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 phi1 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 phi1 (+.f64 (.f64 phi1 (fma.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (fma.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (+.f64 (.f64 phi1 (fma.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (fma.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (.f64 phi1 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (.f64 phi1 (fma.f64 phi1 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))) (.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (fma.f64 #s(literal -1/3 binary64) (.f64 phi1 (.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))) (.f64 (cos.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))))
#s(approx (* (* (cos phi1) (sin delta)) (sin theta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (* (cos phi1) (sin delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
#s(approx (cos phi1) (cos.f64 phi1))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64)))
#s(approx (* (sin phi1) (+ (* (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 phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (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 (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64)))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (/.f64 (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64)))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)))))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (/.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)))))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (/.f64 (-.f64 (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))
#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) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (sin.f64 theta))) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 delta delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi1) (sin.f64 theta))))))))))
#s(approx (* (cos phi1) (sin delta)) (*.f64 delta (cos.f64 phi1)))
#s(approx (* (cos phi1) (sin delta)) (.f64 delta (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/6 binary64) (.f64 (.f64 delta delta) (cos.f64 phi1))))))
#s(approx (* (cos phi1) (sin delta)) (.f64 delta (+.f64 (cos.f64 phi1) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 delta delta) (cos.f64 phi1))))))))
#s(approx (* (cos phi1) (sin delta)) (.f64 delta (+.f64 (cos.f64 phi1) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 delta delta) (cos.f64 phi1)) (.f64 #s(literal 1/120 binary64) (cos.f64 phi1)))))))))
#s(approx (sin delta) delta)
#s(approx (sin delta) (.f64 delta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (*.f64 delta delta)))))
#s(approx (sin delta) (.f64 delta (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (*.f64 delta delta)) #s(literal 1/6 binary64))))))
#s(approx (sin delta) (.f64 delta (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 (.f64 delta delta) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)))) #s(literal 1/6 binary64))))))
#s(approx delta delta)
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (/.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) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (fma.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (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 (fma.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) #s(literal 1 binary64))))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (+.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)))))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (+.f64 (/.f64 (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (fma.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (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 (fma.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) #s(literal 1 binary64))))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (+.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)))))))) (.f64 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) #s(literal 1 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))))) (/.f64 (fma.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) #s(literal 1 binary64))))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (+.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)))))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (*.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (.f64 delta (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (-.f64 (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))))))) (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (pow (cos delta) 3) #s(literal 1 binary64))
#s(approx (pow (cos delta) 3) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -3/2 binary64) (.f64 delta delta))))
#s(approx (pow (cos delta) 3) (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 7/8 binary64) (.f64 delta delta)) #s(literal 3/2 binary64)))))
#s(approx (pow (cos delta) 3) (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 (.f64 delta delta) (+.f64 #s(literal 7/8 binary64) (.f64 #s(literal -61/240 binary64) (.f64 delta delta)))) #s(literal 3/2 binary64)))))
#s(approx (pow (cos delta) 2) #s(literal 1 binary64))
#s(approx (pow (cos delta) 2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 delta delta))))
#s(approx (pow (cos delta) 2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 delta delta)) #s(literal 1 binary64)))))
#s(approx (pow (cos delta) 2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 (.f64 delta delta) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal -2/45 binary64) (.f64 delta delta)))) #s(literal 1 binary64)))))
#s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) #s(literal 1 binary64))
#s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta))))
#s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+.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 (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 (.f64 delta delta) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 delta delta)))) #s(literal 1/2 binary64)))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (fma.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (fma.f64 delta (fma.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (fma.f64 delta (fma.f64 delta (fma.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (sin phi1) (+ (* (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 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 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 phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (sin.f64 phi1))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (+.f64 (sin.f64 phi1) (.f64 delta (.f64 (cos.f64 phi1) (cos.f64 theta)))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (+.f64 (sin.f64 phi1) (.f64 delta (fma.f64 #s(literal -1/2 binary64) (.f64 delta (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (+.f64 (sin.f64 phi1) (.f64 delta (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal -1/6 binary64) (.f64 delta (.f64 (cos.f64 phi1) (cos.f64 theta))))) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (.f64 delta (.f64 (cos.f64 phi1) (cos.f64 theta))))
#s(approx (* (* (cos phi1) (sin delta)) (cos theta)) (.f64 delta (fma.f64 #s(literal -1/6 binary64) (.f64 (.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) (+.f64 (.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 delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+.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)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+.f64 #s(literal 1 binary64) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+.f64 #s(literal 1 binary64) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+.f64 #s(literal 1 binary64) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 delta (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))))) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 delta (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 delta (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 delta (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (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 (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 delta (fma.f64 #s(literal -1 binary64) (.f64 delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 delta (fma.f64 delta (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 delta (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (/.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) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (fma.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (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 (fma.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) #s(literal 1 binary64))))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (+.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)))))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (+.f64 (/.f64 (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (fma.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (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 (fma.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) #s(literal 1 binary64))))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (+.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)))))))) (.f64 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) #s(literal 1 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))))) (/.f64 (fma.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) #s(literal 1 binary64))))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (+.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)))))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (*.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (.f64 delta (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (-.f64 (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))))))) (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (pow (cos delta) 3) #s(literal 1 binary64))
#s(approx (pow (cos delta) 3) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -3/2 binary64) (.f64 delta delta))))
#s(approx (pow (cos delta) 3) (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 7/8 binary64) (.f64 delta delta)) #s(literal 3/2 binary64)))))
#s(approx (pow (cos delta) 3) (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 (.f64 delta delta) (+.f64 #s(literal 7/8 binary64) (.f64 #s(literal -61/240 binary64) (.f64 delta delta)))) #s(literal 3/2 binary64)))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (fma.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (fma.f64 delta (fma.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (fma.f64 delta (fma.f64 delta (fma.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 #s(literal 2 binary64) (.f64 delta (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 delta (fma.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 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 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 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 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 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 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (+.f64 #s(literal 2 binary64) (fma.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) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))))))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))) (/.f64 (fma.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 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 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))))) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) #s(literal 3 binary64)))))) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 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 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (pow.f64 (sin.f64 phi1) #s(literal 3 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 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))))))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 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 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (+.f64 #s(literal 2 binary64) (fma.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) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))))))))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (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 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))))))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (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 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))) (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))) (/.f64 (fma.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 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 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (+.f64 #s(literal 2 binary64) (fma.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) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))))))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))) (/.f64 (fma.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 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 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))))) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) #s(literal 3 binary64)))))) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))))) (.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 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 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) #s(literal 3 binary64)))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (+.f64 #s(literal 2 binary64) (fma.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) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))))))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))))) (/.f64 (fma.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 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 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))))) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) #s(literal 3 binary64)))))) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (.f64 delta (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (-.f64 (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))))))) (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 delta (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 delta (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 2 binary64) (/.f64 (.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (fma.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (fma.f64 #s(literal 3 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal -1 binary64)) (+.f64 (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (+.f64 #s(literal 2 binary64) (fma.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) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))))))) (.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))) (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 delta (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 2 binary64) (/.f64 (.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 2 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (+.f64 (/.f64 (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (fma.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (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 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (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 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))))))) (.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (fma.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (fma.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (fma.f64 #s(literal 3 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal -1 binary64)) (+.f64 (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (+.f64 #s(literal 2 binary64) (fma.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) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))))))) (.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))) (.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (+.f64 #s(literal 2 binary64) (fma.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) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))))))) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))) (/.f64 (fma.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))) (fma.f64 #s(literal 3 binary64) (pow.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal -1 binary64)) (+.f64 (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (+.f64 #s(literal 2 binary64) (fma.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) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))))))) (.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))) (/.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+.f64 #s(literal 1 binary64) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+.f64 #s(literal 1 binary64) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 2 binary64) (.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (+.f64 #s(literal 1 binary64) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 2 binary64) (.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (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 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))) (fma.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))) (.f64 (*.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))
#s(approx (pow (pow (cos delta) 2) 3) #s(literal 1 binary64))
#s(approx (pow (pow (cos delta) 2) 3) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -3 binary64) (.f64 delta delta))))
#s(approx (pow (pow (cos delta) 2) 3) (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 4 binary64) (.f64 delta delta)) #s(literal 3 binary64)))))
#s(approx (pow (pow (cos delta) 2) 3) (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 (.f64 delta delta) (+.f64 #s(literal 4 binary64) (.f64 #s(literal -47/15 binary64) (.f64 delta delta)))) #s(literal 3 binary64)))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))) (.f64 (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (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 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))) (fma.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))) (.f64 (*.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 delta (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (*.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 delta (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 delta (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (+.f64 #s(literal 2 binary64) (fma.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) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (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 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (*.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 delta (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 delta (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 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 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (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 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) (+.f64 #s(literal 2 binary64) (fma.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) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (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 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (*.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (fma.f64 delta (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (*.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (fma.f64 delta (-.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 delta (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (fma.f64 #s(literal -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) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (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 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 delta (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 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 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (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 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) (fma.f64 #s(literal -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) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (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 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (*.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 #s(literal 2 binary64) (.f64 delta (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (*.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 delta (+.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (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 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))))) (.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 delta (fma.f64 #s(literal -1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 delta (fma.f64 #s(literal -1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 delta (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (/.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 (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (fma.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (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 (fma.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) #s(literal 1 binary64))))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (+.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)))))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (+.f64 (/.f64 (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (fma.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (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 (fma.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) #s(literal 1 binary64))))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (+.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)))))))) (.f64 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) #s(literal 1 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))))) (/.f64 (fma.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) #s(literal 1 binary64))))) (.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (+.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)))))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (*.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 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 (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+.f64 #s(literal 1 binary64) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+.f64 #s(literal 1 binary64) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+.f64 #s(literal 1 binary64) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 delta (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))))) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
#s(approx (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) #s(literal 1 binary64))
#s(approx (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta))))
#s(approx (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (+.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 (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (+.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 delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) #s(literal -1 binary64))
#s(approx (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (-.f64 (*.f64 delta delta) #s(literal 1 binary64)))
#s(approx (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (-.f64 (.f64 (.f64 delta delta) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/3 binary64) (.f64 delta delta)))) #s(literal 1 binary64)))
#s(approx (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (-.f64 (.f64 (.f64 delta delta) (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 2/45 binary64) (.f64 delta delta)) #s(literal 1/3 binary64))))) #s(literal 1 binary64)))
#s(approx (* (* (sin delta) 0) (* (sin delta) 0)) #s(literal 0 binary64))
#s(approx (* (sin delta) 0) #s(literal 0 binary64))
#s(approx (* (* (cos delta) 1) (* (cos delta) 1)) #s(literal 1 binary64))
#s(approx (* (* (cos delta) 1) (* (cos delta) 1)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 delta delta))))
#s(approx (* (* (cos delta) 1) (* (cos delta) 1)) (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 delta delta)) #s(literal 1 binary64)))))
#s(approx (* (* (cos delta) 1) (* (cos delta) 1)) (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 (.f64 delta delta) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal -2/45 binary64) (.f64 delta delta)))) #s(literal 1 binary64)))))
#s(approx (* (cos delta) 1) #s(literal 1 binary64))
#s(approx (* (cos delta) 1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta))))
#s(approx (* (cos delta) 1) (+.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) 1) (+.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 delta) 0) (* (cos delta) 1)) #s(literal -1 binary64))
#s(approx (- (* (sin delta) 0) (* (cos delta) 1)) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 delta delta)) #s(literal 1 binary64)))
#s(approx (- (* (sin delta) 0) (* (cos delta) 1)) (-.f64 (.f64 (.f64 delta delta) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/24 binary64) (.f64 delta delta)))) #s(literal 1 binary64)))
#s(approx (- (* (sin delta) 0) (* (cos delta) 1)) (-.f64 (.f64 (.f64 delta delta) (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/720 binary64) (.f64 delta delta)) #s(literal 1/24 binary64))))) #s(literal 1 binary64)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 delta delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (sin.f64 theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (fma.f64 (cos.f64 phi1) (sin.f64 theta) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (sin.f64 theta)) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 delta delta) (.f64 (cos.f64 phi1) (sin.f64 theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (fma.f64 (cos.f64 phi1) (sin.f64 theta) (.f64 (.f64 delta delta) (+.f64 (.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 (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (/.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi1)))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64)) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 delta (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64)) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (/.f64 (fma.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi1)))))) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (/.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi1)))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.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)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (/.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi1)))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64)) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 delta (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64)) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (/.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1/3 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 (sin.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi1)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (/.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi1)))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (/.f64 (fma.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi1)))))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64)) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (/.f64 (fma.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi1)))))) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (/.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi1)))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.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)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (/.f64 (fma.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi1)))))) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (/.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi1)))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.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)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (/.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi1)))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64)) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 delta (-.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))))))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 delta (-.f64 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 delta (-.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))))))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (pow (cos delta) 3) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64)))
#s(approx (pow (cos delta) 3) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64))))
#s(approx (pow (cos delta) 3) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 delta (+.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64))))
#s(approx (pow (cos delta) 3) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 delta (+.f64 (.f64 #s(literal -1 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) #s(literal 3 binary64))))
#s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 delta (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
#s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 delta (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 delta (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 delta (+.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 delta (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (*.f64 delta (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64))))))))))))
#s(approx (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 delta #s(literal 0 binary64))))
#s(approx (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 delta (+.f64 #s(literal 0 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 delta (+.f64 #s(literal 0 binary64) (.f64 delta (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 delta #s(literal 0 binary64)))))))))
#s(approx (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta)) (*.f64 delta #s(literal 0 binary64)))
#s(approx (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta)) (.f64 delta (+.f64 #s(literal 0 binary64) (.f64 #s(literal -1/6 binary64) (.f64 (.f64 delta delta) #s(literal 0 binary64))))))
#s(approx (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta)) (.f64 delta (+.f64 #s(literal 0 binary64) (.f64 (.f64 delta delta) (+.f64 #s(literal 0 binary64) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 delta delta) #s(literal 0 binary64))))))))
#s(approx (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta)) (.f64 delta (+.f64 #s(literal 0 binary64) (.f64 (.f64 delta delta) (+.f64 #s(literal 0 binary64) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (*.f64 delta delta) #s(literal 0 binary64)) #s(literal 0 binary64))))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+.f64 (.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi1))))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 delta (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi1))))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 #s(literal 2 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 delta (+.f64 (.f64 #s(literal -1 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 delta (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1/3 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 (sin.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi1)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))))) (fma.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi1))))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi1))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 delta (fma.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64)))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi1)))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 delta (fma.f64 delta (fma.f64 (sin.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi1)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) (fma.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi1)))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 delta (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 delta (fma.f64 delta (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 delta (fma.f64 delta (fma.f64 delta (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi1))))))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64))))))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin delta) (sin.f64 delta))
#s(approx (pow (cos delta) 3) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)))
#s(approx (pow (cos delta) 2) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))
#s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (cos.f64 delta))
#s(approx (pow (cos delta) 3) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)))
#s(approx (pow (pow (cos delta) 2) 3) (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 3 binary64)))
#s(approx (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos.f64 delta))
#s(approx (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (*.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
#s(approx (* (* (cos delta) 1) (* (cos delta) 1)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))
#s(approx (* (cos delta) 1) (cos.f64 delta))
#s(approx (- (* (sin delta) 0) (* (cos delta) 1)) (*.f64 #s(literal -1 binary64) (cos.f64 delta)))
#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (pow (cos delta) 3) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) #s(literal 3 binary64)))
#s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))
#s(approx (+ (* (cos delta) (sin (* 1/2 (PI)))) (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 delta) #s(literal 0 binary64))))
#s(approx (* (sin (+ (* 1/2 (PI)) (/ (PI) 2))) (sin delta)) (*.f64 (sin.f64 delta) #s(literal 0 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) (+.f64 (.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) theta)
#s(approx (sin theta) (.f64 theta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)))))
#s(approx (sin theta) (.f64 theta (+.f64 #s(literal 1 binary64) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal 1/120 binary64) (*.f64 theta theta)) #s(literal 1/6 binary64))))))
#s(approx (sin theta) (.f64 theta (+.f64 #s(literal 1 binary64) (.f64 (.f64 theta theta) (-.f64 (.f64 (.f64 theta theta) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (*.f64 theta theta)))) #s(literal 1/6 binary64))))))
#s(approx theta theta)
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (fma.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (fma.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (+.f64 (/.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))))) (/.f64 (fma.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (* (sin phi1) (+ (* (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 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 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 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) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.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 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 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) (+.f64 (.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) (+.f64 (.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 delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (.f64 theta theta) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (fma.f64 (.f64 theta theta) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (.f64 theta theta) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (fma.f64 (.f64 theta theta) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (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 phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (.f64 theta theta) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (fma.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (fma.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (+.f64 (/.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))))) (/.f64 (fma.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))
#s(approx (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (/.f64 (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))) (.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))))) (/.f64 (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1 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) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))))) (/.f64 (fma.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))) (.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))))) (.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (+.f64 (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))))) (.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))))) (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))) (.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))))) (/.f64 (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1 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) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1 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) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))))) (+.f64 (/.f64 (.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (fma.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))) (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))) (.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))) (/.f64 (fma.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1 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) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))))) (/.f64 (fma.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))) (.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))))) (.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (+.f64 (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))))) (.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))))) (.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (+.f64 (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))) (.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))))) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))))) (/.f64 (fma.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))) (.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))))) (.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (+.f64 (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))))) (.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))))) (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))) (.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))))) (/.f64 (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (/.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))))) (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))))) (/.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (/.f64 (+.f64 (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))) (+.f64 (/.f64 (.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))))) (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))))) (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))))) (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))))) (/.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (fma.f64 (.f64 theta theta) (-.f64 (+.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (/.f64 (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))))) (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))) (/.f64 (fma.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (/.f64 (+.f64 (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))) (+.f64 (/.f64 (.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))))) (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))))) (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))))) (.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))))) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))))) (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))))) (/.f64 (+.f64 (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))))) (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))))) (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))))) (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))))) (/.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (fma.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (.f64 theta theta) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (+.f64 (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))))
#s(approx (+ (pow (pow (cos delta) 2) 3) (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3)) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (fma.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal 2 binary64) (.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (+.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (.f64 theta theta) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (fma.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))))))))))) (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (fma.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (.f64 theta theta) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (+.f64 (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))))) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))
#s(approx (pow (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) 3) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (fma.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal 2 binary64) (.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (+.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (.f64 theta theta) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (fma.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))))))))))) (.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (-.f64 (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))
#s(approx (+ (* (pow (cos delta) 2) (pow (cos delta) 2)) (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))
#s(approx (- (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 #s(literal 2 binary64) (.f64 (.f64 theta theta) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (.f64 theta theta) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (.f64 theta theta) (fma.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))
#s(approx (* (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (.f64 theta theta) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))) (.f64 (.f64 theta theta) (fma.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal 2 binary64) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))
#s(approx (* (pow (cos delta) 2) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (fma.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (fma.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (+.f64 (/.f64 (.f64 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))))) (/.f64 (fma.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (.f64 theta theta) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (+ (* (/ (- (* (* (sin delta) 0) (* (sin delta) 0)) (* (* (cos delta) 1) (* (cos delta) 1))) (- (* (sin delta) 0) (* (cos delta) 1))) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (fma.f64 (.f64 theta theta) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 theta (.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 theta (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 theta (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 theta (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.f64 theta theta) (+.f64 (.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 (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (/.f64 (-.f64 (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))) (-.f64 (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))))) (/.f64 (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) #s(literal 3 binary64)) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))) (/.f64 (fma.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))) (-.f64 (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))))) (.f64 (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))) (.f64 (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (-.f64 (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))))) (.f64 (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (.f64 (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))) (-.f64 (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))))) (/.f64 (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) #s(literal 3 binary64)) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))))
#s(approx (/ (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))) (.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))) (/.f64 (fma.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))) (-.f64 (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))))) (.f64 (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))) (.f64 (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (-.f64 (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))))) (.f64 (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (.f64 (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (-.f64 (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))) (/.f64 (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))) (-.f64 (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))))))) (/.f64 (fma.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))) (-.f64 (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))))) (.f64 (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))) (.f64 (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (-.f64 (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))))) (.f64 (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (.f64 (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))) (-.f64 (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (.f64 (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))))) (/.f64 (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) #s(literal 3 binary64)) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) #s(literal 3 binary64))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) #s(literal 3 binary64))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (- (* (pow (cos delta) 2) (cos delta)) (pow (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) 3)) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) #s(literal 3 binary64))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))) (.f64 (.f64 theta theta) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (.f64 (.f64 theta theta) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))))))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))) (.f64 (.f64 theta theta) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))
#s(approx (+ (* (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (.f64 (.f64 theta theta) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (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) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))) (.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (.f64 (.f64 theta theta) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))))))))
#s(approx (* (cos delta) (* (sin phi1) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (sin.f64 phi1) (.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta))))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))))))))))))
#s(approx (sin theta) (sin.f64 theta))
#s(approx (cos theta) (cos.f64 theta))

eval2.2s (11.1%)

Memory: -128.8MiB live, 3 226.1MiB allocated; 1.3s collecting garbage
Compiler: Compiled 1 140 383 to 24 911 computations (97.8% saved)

prune6.0s (29.7%)

Memory

164.8MiB live, 11 343.3MiB allocated; 864ms collecting garbage

Pruning

6 alts after pruning (2 fresh and 4 done)

	Pruned	Kept	Total
New	5 101	1	5 102
Fresh	0	1	1
Picked	2	3	5
Done	0	1	1
Total	5 103	6	5 109

Accuracy

100.0%

Counts

5 109 → 6

Alt Table

Click to see full alt table

Status	Accuracy	Program
	99.8%	(+.f64 #s(approx lambda1 lambda1) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (-.f64 (.f64 (sin.f64 (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))))) #s(literal 0 binary64)) (.f64 (cos.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))))) #s(literal 1 binary64)))))))
✓	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 delta)))) #s(approx (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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 #s(approx (+ ( (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.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))))))))))
✓	94.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 (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 3 binary64)) (pow.f64 (sin.f64 delta) #s(literal 3 binary64))))) (fma.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 delta))) (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 delta))) (-.f64 (.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))))
✓	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 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 (/.f64 (-.f64 (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64))) (.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))) (-.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))) (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))))))))))
✓	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 3 binary64)) (.f64 (.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 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))) (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))))))))))
	99.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (cos.f64 delta)) (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))) (/.f64 (fma.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (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)))))) #s(literal 3 binary64))) (fma.f64 (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (neg.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (-.f64 (.f64 (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)))))) (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 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (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)))))))))))))

Compiler

Compiled 2 680 to 408 computations (84.8% saved)

regimes34.0ms (0.2%)

Memory

2.5MiB live, 49.4MiB allocated; 1ms collecting garbage

Counts

17 → 1

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes8.0ms (0%)

Memory

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

Accuracy

Total 0.0b remaining (0%)

Threshold costs 0b (0%)

Counts

1 → 1

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)))))))))

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:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

simplify39.0ms (0.2%)

Memory

-11.0MiB live, 35.8MiB allocated; 3ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	43	311
1	61	311
2	80	311
3	96	311
4	130	311
5	449	311
6	3545	311

Stop Event

1×	node limit

Calls

Call 1

Inputs

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

Outputs

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

derivations81.0ms (0.4%)

Memory

17.4MiB live, 65.9MiB allocated; 6ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 313 to 45 computations (85.6% saved)

preprocess41.0ms (0.2%)

Memory: -24.7MiB live, 68.8MiB allocated; 5ms collecting garbage
Remove: (abs phi2)
Compiler: Compiled 1 812 to 284 computations (84.3% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze1.3s (6.4%)

sample4.1s (20.6%)

explain362.0ms (1.8%)

preprocess215.0ms (1.1%)

eval0.0ms (0%)

prune1.0ms (0%)

series65.0ms (0.3%)

rewrite203.0ms (1%)

eval158.0ms (0.8%)

prune173.0ms (0.9%)

series203.0ms (1%)

rewrite259.0ms (1.3%)

eval264.0ms (1.3%)

prune1.2s (5.8%)

series230.0ms (1.1%)

rewrite341.0ms (1.7%)

eval306.0ms (1.5%)

prune1.2s (6%)

series480.0ms (2.4%)

rewrite643.0ms (3.2%)

eval2.2s (11.1%)

prune6.0s (29.7%)

regimes34.0ms (0.2%)

regimes8.0ms (0%)

simplify39.0ms (0.2%)

derivations81.0ms (0.4%)

preprocess41.0ms (0.2%)

end0.0ms (0%)

Profiling