Metrics for Destination given bearing on a great circle

start0.0ms (0%)

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

analyze2.1s (19.4%)

Memory

-71.3MiB live, 1 303.1MiB allocated; 1.6s collecting garbage

Algorithm

1×

Search

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

Compiler

Compiled 35 to 25 computations (28.6% saved)

sample2.9s (26.3%)

Memory

98.8MiB live, 2 327.5MiB allocated; 324ms collecting garbage

Samples

2.3s	8 255×	0	valid
1.0ms	1×	1	valid

Precisions

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

ival-sin: 730.0ms (36.4% of total)

ival-cos: 604.0ms (30.1% of total)

ival-mult: 339.0ms (16.9% of total)

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

ival-add: 84.0ms (4.2% of total)

ival-atan2: 65.0ms (3.2% of total)

ival-sub: 34.0ms (1.7% of total)

adjust: 3.0ms (0.1% of total)

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

Bogosity

explain379.0ms (3.5%)

Memory

37.7MiB live, 377.0MiB allocated; 33ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Underpredictions	Example	Subexpression
5	1	(6.675106030721095e-133 -2.4157368050928775e+153 1.9585443685457516e-118 2.196523523904928e-274 3.909107829178934e+144)	2	(3.3927000135356736e-174 1.4581002479502195e+122 1.8288157310162493e-180 5.667649865928931e-42 1.0513370438245523e-164)	`(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))`
0	0	-	0	-	`(cos.f64 theta)`
0	0	-	0	-	`theta`
0	0	-	0	-	`(sin.f64 theta)`
0	0	-	0	-	`(.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))`
0	0	-	0	-	`(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))`
0	0	-	0	-	`delta`
0	0	-	0	-	`(sin.f64 phi1)`
0	0	-	0	-	`(*.f64 (sin.f64 phi1) (cos.f64 delta))`
0	0	-	0	-	`lambda1`
0	0	-	0	-	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
0	0	-	0	-	`(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))`
0	0	-	0	-	`(*.f64 (sin.f64 theta) (sin.f64 delta))`
0	0	-	0	-	`phi1`
0	0	-	0	-	`(*.f64 (cos.f64 phi1) (sin.f64 delta))`
0	0	-	0	-	`(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))`
0	0	-	0	-	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
0	0	-	0	-	`(sin.f64 delta)`
0	0	-	0	-	`(sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))`
0	0	-	0	-	`(cos.f64 delta)`
0	0	-	0	-	`(asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))`
0	0	-	0	-	`(cos.f64 phi1)`

Explanations

Click to see full explanations table

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

Confusion

	Predicted +	Predicted -
+	1	0
-	0	255

Precision

1.0

Recall

1.0

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	1	0	0
-	0	5	250

Precision?

0.16666666666666666

Recall?

1.0

Freqs

test

number	freq
0	255
1	1

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

144.0ms

512×

valid

Compiler

Compiled 431 to 73 computations (83.1% saved)

Precisions

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

ival-sin: 35.0ms (30% of total)

ival-cos: 32.0ms (27.4% of total)

ival-atan2: 19.0ms (16.3% of total)

ival-mult: 17.0ms (14.6% of total)

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

ival-add: 4.0ms (3.4% of total)

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

adjust: 0.0ms (0% of total)

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

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

preprocess192.0ms (1.8%)

Memory

-35.0MiB live, 102.1MiB allocated; 14ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

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

Stop Event

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

Calls

Call 1

Inputs

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

Outputs

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

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

Symmetry

(abs phi2)

Compiler

Compiled 33 to 23 computations (30.3% saved)

eval0.0ms (0%)

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

prune1.0ms (0%)

Memory

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

Alt Table

Click to see full alt table

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

Status

Accuracy

Program

▶

99.8%

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

Compiler

Compiled 33 to 23 computations (30.3% saved)

series58.0ms (0.5%)

Memory

13.9MiB live, 64.5MiB allocated; 7ms 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
8.0ms	theta	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)) (* (cos phi1) (sin delta)) (cos theta))
5.0ms	theta	@	0	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)) (* (cos phi1) (sin delta)) (cos theta))
4.0ms	phi1	@	-inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)) (* (cos phi1) (sin delta)) (cos theta))
4.0ms	phi1	@	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))

rewrite255.0ms (2.3%)

Memory

-56.5MiB live, 175.8MiB allocated; 88ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

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

Stop Event

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

Counts

168 → 264

Calls

Call 1

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

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

eval67.0ms (0.6%)

Memory: 3.6MiB live, 51.1MiB allocated; 8ms collecting garbage
Compiler: Compiled 12 738 to 1 974 computations (84.5% saved)

prune23.0ms (0.2%)

Memory

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

Pruning

18 alts after pruning (18 fresh and 0 done)

	Pruned	Kept	Total
New	269	18	287
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	270	18	288

Accuracy

99.9%

Counts

288 → 18

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)) (fma.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
▶	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))))
▶	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (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))))))))
	87.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (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)))))))
▶	89.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1)))))))
	91.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
▶	94.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	94.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	79.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (cos.f64 delta) phi1)) phi1)))))
	86.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (cos.f64 theta)) (sin.f64 delta))))))
	83.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	83.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (fma.f64 (.f64 #s(literal -1 binary64) delta) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1)) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	91.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
	99.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)))))))))
	82.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) 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)))))))))
	27.5%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))))
▶	73.9%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

Compiler

Compiled 1 576 to 1 060 computations (32.7% saved)

series152.0ms (1.4%)

Memory

18.3MiB live, 158.0MiB allocated; 16ms collecting garbage

Counts

50 → 350

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable		Point	Expression
41.0ms	theta	@	0	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (pow (cos delta) 3) (cos delta) 3 (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1) (* (cos theta) (* (cos phi1) (sin delta))) (cos theta) (* (cos phi1) (sin delta)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) 2 (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin (+ phi1 delta)) (+ phi1 delta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (* (cos phi1) delta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))))) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (* (cos theta) (sin delta)) (* (sin phi1) (cos delta)))
16.0ms	phi1	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (pow (cos delta) 3) (cos delta) 3 (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1) (* (cos theta) (* (cos phi1) (sin delta))) (cos theta) (* (cos phi1) (sin delta)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) 2 (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin (+ phi1 delta)) (+ phi1 delta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (* (cos phi1) delta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))))) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (* (cos theta) (sin delta)) (* (sin phi1) (cos delta)))
15.0ms	delta	@	0	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (pow (cos delta) 3) (cos delta) 3 (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1) (* (cos theta) (* (cos phi1) (sin delta))) (cos theta) (* (cos phi1) (sin delta)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) 2 (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin (+ phi1 delta)) (+ phi1 delta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (* (cos phi1) delta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))))) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (* (cos theta) (sin delta)) (* (sin phi1) (cos delta)))
12.0ms	delta	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (pow (cos delta) 3) (cos delta) 3 (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1) (* (cos theta) (* (cos phi1) (sin delta))) (cos theta) (* (cos phi1) (sin delta)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) 2 (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin (+ phi1 delta)) (+ phi1 delta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (* (cos phi1) delta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))))) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (* (cos theta) (sin delta)) (* (sin phi1) (cos delta)))
9.0ms	delta	@	-inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (pow (cos delta) 3) (cos delta) 3 (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1) (* (cos theta) (* (cos phi1) (sin delta))) (cos theta) (* (cos phi1) (sin delta)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) 2 (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin (+ phi1 delta)) (+ phi1 delta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (* (cos phi1) delta) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))))) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (* (cos theta) (sin delta)) (* (sin phi1) (cos delta)))

rewrite305.0ms (2.8%)

Memory

-15.1MiB live, 305.2MiB allocated; 37ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1578	22621
0	1672	22129
0	8223	21212

Stop Event

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

Counts

400 → 472

Calls

Call 1

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

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

eval271.0ms (2.5%)

Memory: -5.5MiB live, 236.1MiB allocated; 58ms collecting garbage
Compiler: Compiled 84 720 to 5 568 computations (93.4% saved)

prune90.0ms (0.8%)

Memory

20.8MiB live, 113.3MiB allocated; 6ms collecting garbage

Pruning

32 alts after pruning (30 fresh and 2 done)

	Pruned	Kept	Total
New	1 032	27	1 059
Fresh	10	3	13
Picked	3	2	5
Done	0	0	0
Total	1 045	32	1 077

Accuracy

100.0%

Counts

1 077 → 32

Alt Table

Click to see full alt table

Status	Accuracy	Program
	89.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))))
▶	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.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 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))))
	77.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (exp.f64 (.f64 (log.f64 (cos.f64 delta)) #s(literal 3 binary64))) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))))
	89.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 #s(approx (pow (cos delta) 3) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -3/2 binary64) (.f64 delta delta)))) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))))
	86.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
✓	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	94.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	89.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (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))))))))
	96.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))
	91.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	91.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 #s(approx (+ phi1 delta) delta)))))))
▶	88.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1)))))))))
	94.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	86.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (.f64 phi1 (.f64 (cos.f64 theta) (sin.f64 delta)))))))
▶	88.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	83.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1)))))))
	83.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	96.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))))
▶	91.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))))
	83.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	83.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	83.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1)))))))
	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)))))))))
	82.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 #s(approx (sin theta) theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	91.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	90.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	82.6%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta)))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
▶	27.5%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
	99.8%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))) lambda1))))
✓	73.9%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

Compiler

Compiled 3 197 to 1 924 computations (39.8% saved)

series113.0ms (1%)

Memory

17.8MiB live, 161.3MiB allocated; 10ms collecting garbage

Counts

63 → 428

Calls

Call 1

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

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

Calls

15 calls:

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

rewrite265.0ms (2.4%)

Memory

6.7MiB live, 230.5MiB allocated; 21ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1728	32271
0	1833	31445
0	8207	30158

Stop Event

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

Counts

491 → 574

Calls

Call 1

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

Outputs
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))))))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))))))) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))))
lambda1
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))))))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64))
(sin.f64 theta)
theta
(sin.f64 delta)
delta
(sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 phi1))
(cos.f64 phi1)
phi1
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))))) (/.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))))))
(.f64 (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))
(/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #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)))) (+.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))))
(/.f64 (-.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64)) #s(literal 3 binary64))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #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)) (.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))))))
(-.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)))
(*.f64 (pow.f64 (cos.f64 delta) #s(literal 3/2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3/2 binary64)))
(*.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (cos.f64 delta))
(*.f64 (cos.f64 delta) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))
(pow.f64 (cos.f64 delta) #s(literal 3 binary64))
(exp.f64 (*.f64 (log.f64 (cos.f64 delta)) #s(literal 3 binary64)))
(sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 delta))
(cos.f64 delta)
#s(literal 3 binary64)
(.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3/2 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3/2 binary64)))
(.f64 (pow.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 (sin.f64 phi1) #s(literal 3 binary64)))
(.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))
(.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)))
(pow.f64 (.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))
(exp.f64 (.f64 (log.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)))
(.f64 (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3/2 binary64)) (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3/2 binary64)))
(.f64 (.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))))) (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)))) (.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))))))
(pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))
(exp.f64 (.f64 (log.f64 (fma.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 (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 (.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))))
(sin.f64 phi1)
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(sin.f64 (+.f64 theta (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 theta))
(cos.f64 theta)
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(*.f64 (pow.f64 (sin.f64 phi1) #s(literal 3/2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3/2 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 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (-.f64 (.f64 (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))))
(fma.f64 (pow.f64 (cos.f64 delta) #s(literal 1 binary64)) (pow.f64 (cos.f64 delta) #s(literal 1 binary64)) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))))
(fma.f64 (neg.f64 (cos.f64 delta)) (neg.f64 (cos.f64 delta)) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))))
(fma.f64 (fabs.f64 (cos.f64 delta)) (fabs.f64 (cos.f64 delta)) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))))
(fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))))
(+.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64))) (.f64 (.f64 (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 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.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))) #s(literal 3 binary64))) (fma.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (.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 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))))))
(fma.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 1 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 1 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))
(fma.f64 (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))
(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 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (neg.f64 (cos.f64 delta)) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))
(+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))
(.f64 (pow.f64 (.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 1 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 1 binary64)))
(.f64 (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #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)))
(pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64))
(exp.f64 (.f64 (log.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))) #s(literal 2 binary64)))
(.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))
#s(literal 2 binary64)
(.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta)))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta)))) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta)))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))))) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))))
(/.f64 (-.f64 (.f64 #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))) #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta))))) (.f64 (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))) (+.f64 #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))))
(/.f64 (-.f64 (pow.f64 #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))) #s(literal 3 binary64))) (fma.f64 #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))) #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))) (fma.f64 (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))) (.f64 #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))))))
(-.f64 #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))
#s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta))))
(/.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 delta delta)) (.f64 #s(literal -1/2 binary64) (.f64 delta delta)))) (-.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (*.f64 delta delta))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 #s(literal -1/2 binary64) (.f64 delta delta)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 delta delta)) (.f64 #s(literal -1/2 binary64) (.f64 delta delta))) (.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta))))))
(-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))
(+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta)))
#s(literal 1 binary64)
(.f64 #s(literal -1/2 binary64) (.f64 delta delta))
#s(literal -1/2 binary64)
(*.f64 (pow.f64 delta #s(literal 1 binary64)) (pow.f64 delta #s(literal 1 binary64)))
(*.f64 (fabs.f64 delta) (fabs.f64 delta))
(*.f64 (neg.f64 delta) (neg.f64 delta))
(*.f64 delta delta)
(pow.f64 delta #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 delta) #s(literal 2 binary64)))
(.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))
(fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
(sin.f64 (+.f64 phi1 delta))
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(/.f64 (-.f64 (.f64 phi1 phi1) (.f64 delta delta)) (-.f64 phi1 delta))
(/.f64 (+.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 delta #s(literal 3 binary64))) (fma.f64 phi1 phi1 (-.f64 (.f64 delta delta) (.f64 phi1 delta))))
(+.f64 phi1 delta)
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (.f64 delta (cos.f64 phi1)))))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (.f64 delta (cos.f64 phi1)))))))))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1))))))))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (.f64 delta (cos.f64 phi1)))))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (.f64 delta (cos.f64 phi1)))))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (.f64 delta (cos.f64 phi1))))))))) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1))))))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1)))))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1))))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (.f64 delta (cos.f64 phi1)))))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (.f64 delta (cos.f64 phi1)))))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1))))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (.f64 delta (cos.f64 phi1)))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (.f64 delta (cos.f64 phi1)))))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (.f64 delta (cos.f64 phi1)))))) (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1))))))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1)))))))
(.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1)))))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 delta (cos.f64 phi1)) (.f64 delta (cos.f64 phi1)))) (-.f64 (sin.f64 phi1) (.f64 delta (cos.f64 phi1))))
(/.f64 (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 delta (cos.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (-.f64 (.f64 (.f64 delta (cos.f64 phi1)) (.f64 delta (cos.f64 phi1))) (.f64 (sin.f64 phi1) (.f64 delta (cos.f64 phi1))))))
(-.f64 (sin.f64 phi1) (*.f64 (neg.f64 delta) (cos.f64 phi1)))
(+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1)))
(*.f64 delta (cos.f64 phi1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
(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)))))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(/.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (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))))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))))))
(/.f64 (-.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) (cos.f64 delta) (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (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))))) (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)) (-.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (.f64 (.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 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 delta))))
(+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))
(*.f64 (cos.f64 theta) (sin.f64 delta))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))))
#s(approx lambda1 lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) lambda1))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) lambda1))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))) lambda1))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))) lambda1))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi1 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (sin.f64 delta) (sin.f64 theta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 delta) (sin.f64 theta)) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 phi1 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (sin.f64 delta) (sin.f64 theta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 delta) (sin.f64 theta)) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi1 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (.f64 #s(literal 1/24 binary64) (.f64 (sin.f64 delta) (sin.f64 theta)))))))))
#s(approx (cos phi1) #s(literal 1 binary64))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)))) #s(literal 1/2 binary64)))))
#s(approx phi1 phi1)
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (-.f64 (cos.f64 delta) (.f64 #s(literal 1 binary64) (.f64 phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (cos.f64 delta)) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (cos.f64 delta)))))) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (+.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (cos.f64 delta)) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (cos.f64 delta)))))) (cos.f64 delta)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (+.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))))))) (+.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (cos.f64 delta)) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (cos.f64 delta)))))) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)))
#s(approx (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))))
#s(approx (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (fma.f64 (pow.f64 phi1 #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))))
#s(approx (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (fma.f64 (pow.f64 phi1 #s(literal 3 binary64)) (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))))
#s(approx (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3)) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))))
#s(approx (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3)) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)))))
#s(approx (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3)) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)))))
#s(approx (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3)) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))))))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)))))
#s(approx (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)))
#s(approx (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))))
#s(approx (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))))
#s(approx (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))))))))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))))
#s(approx (+ (* (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 (sin phi1) phi1)
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (*.f64 phi1 phi1)))))
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/120 binary64) (*.f64 phi1 phi1)) #s(literal 1/6 binary64))))))
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (*.f64 phi1 phi1)))) #s(literal 1/6 binary64))))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi1 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 phi1 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi1 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))))))
#s(approx (* (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 (pow (sin phi1) 3) (pow.f64 phi1 #s(literal 3 binary64)))
#s(approx (pow (sin phi1) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1)))))
#s(approx (pow (sin phi1) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (+.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 (pow.f64 phi1 #s(literal 3 binary64)) (+.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 (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 phi1 (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 phi1 (fma.f64 phi1 (+.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (+.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
#s(approx (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (.f64 phi1 (.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (.f64 phi1 (fma.f64 phi1 (+.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (+.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))))) (+.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (.f64 (.f64 phi1 phi1) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal 2 binary64) (.f64 phi1 (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (.f64 (.f64 phi1 phi1) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (.f64 (.f64 phi1 phi1) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (fma.f64 #s(literal -2/3 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))
#s(approx (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) (.f64 phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) (.f64 phi1 (fma.f64 phi1 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) (.f64 phi1 (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) (.f64 phi1 (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (fma.f64 #s(literal -1/3 binary64) (.f64 phi1 (cos.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (.f64 phi1 (.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (.f64 phi1 (fma.f64 phi1 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/3 binary64) (.f64 phi1 (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (-.f64 (cos.f64 delta) (.f64 #s(literal 1 binary64) (.f64 phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (cos.f64 delta)) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (cos.f64 delta)))))) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (+.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (cos.f64 delta)) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (cos.f64 delta)))))) (cos.f64 delta)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (+.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))))))) (+.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (cos.f64 delta)) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (cos.f64 delta)))))) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 #s(literal 1 binary64) (.f64 phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 delta))) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (cos.f64 delta))) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (fma.f64 phi1 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (fma.f64 #s(literal -1/3 binary64) (.f64 phi1 (cos.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 phi1 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 phi1 (-.f64 (cos.f64 delta) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))) (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 delta)))))) (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (sin (+ phi1 delta)) (sin.f64 delta))
#s(approx (sin (+ phi1 delta)) (+.f64 (sin.f64 delta) (*.f64 phi1 (cos.f64 delta))))
#s(approx (sin (+ phi1 delta)) (+.f64 (sin.f64 delta) (.f64 phi1 (-.f64 (cos.f64 delta) (.f64 #s(literal 1/2 binary64) (*.f64 phi1 (sin.f64 delta)))))))
#s(approx (sin (+ phi1 delta)) (+.f64 (sin.f64 delta) (.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 delta) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 delta)))))))))
#s(approx (+ phi1 delta) delta)
#s(approx (+ phi1 delta) (+.f64 delta phi1))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (*.f64 delta (cos.f64 theta)))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 phi1 (*.f64 delta (cos.f64 theta))))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (fma.f64 delta (cos.f64 theta) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta (.f64 phi1 (cos.f64 theta))))))))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (fma.f64 delta (cos.f64 theta) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 delta (cos.f64 theta)) (.f64 #s(literal -1/6 binary64) phi1)))))))
#s(approx (+ (sin phi1) (* delta (cos phi1))) delta)
#s(approx (+ (sin phi1) (* delta (cos phi1))) (+.f64 delta phi1))
#s(approx (+ (sin phi1) (* delta (cos phi1))) (+.f64 delta (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (*.f64 delta phi1))))))
#s(approx (+ (sin phi1) (* delta (cos phi1))) (+.f64 delta (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) delta (*.f64 #s(literal -1/6 binary64) phi1)))))))
#s(approx (* delta (cos phi1)) delta)
#s(approx (* delta (cos phi1)) (+.f64 delta (.f64 #s(literal -1/2 binary64) (.f64 delta (*.f64 phi1 phi1)))))
#s(approx (* delta (cos phi1)) (+.f64 delta (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) delta (.f64 #s(literal 1/24 binary64) (.f64 delta (*.f64 phi1 phi1)))))))
#s(approx (* delta (cos phi1)) (+.f64 delta (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) delta (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/720 binary64) (.f64 delta (.f64 phi1 phi1)) (*.f64 #s(literal 1/24 binary64) delta)))))))
#s(approx (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
#s(approx (* (cos phi1) (* (sin delta) (sin theta))) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (* (cos phi1) (* (sin delta) (sin theta))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi1 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (* (cos phi1) (* (sin delta) (sin theta))) (fma.f64 (sin.f64 delta) (sin.f64 theta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 delta) (sin.f64 theta)) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 phi1 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))))))))
#s(approx (* (cos phi1) (* (sin delta) (sin theta))) (fma.f64 (sin.f64 delta) (sin.f64 theta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 delta) (sin.f64 theta)) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi1 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (.f64 #s(literal 1/24 binary64) (.f64 (sin.f64 delta) (sin.f64 theta)))))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (cos.f64 delta))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (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) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (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) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (cos.f64 delta))) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (.f64 phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (.f64 phi1 (fma.f64 phi1 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (.f64 phi1 (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (.f64 phi1 (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (fma.f64 #s(literal -1/3 binary64) (.f64 phi1 (cos.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (fma.f64 phi1 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (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 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (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 phi1) (* (cos theta) (sin delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (* (cos phi1) (* (cos theta) (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 phi1) (* (cos theta) (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 phi1) (* (cos theta) (sin delta))) (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi1 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (cos phi1) (cos.f64 phi1))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))))
#s(approx (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64)))
#s(approx (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (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 (+ (* (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 (sin phi1) (sin.f64 phi1))
#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)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
#s(approx (pow (sin phi1) 3) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (fma.f64 (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) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)))
#s(approx (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (sin (+ phi1 delta)) (sin.f64 (+.f64 delta phi1)))
#s(approx (+ phi1 delta) phi1)
#s(approx (+ phi1 delta) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (/.f64 delta phi1))))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (.f64 delta (.f64 (cos.f64 phi1) (cos.f64 theta)))))
#s(approx (+ (sin phi1) (* delta (cos phi1))) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1))))
#s(approx (* delta (cos phi1)) (*.f64 delta (cos.f64 phi1)))
#s(approx (* (cos phi1) (* (sin delta) (sin theta))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
#s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (cos phi1) (* (cos theta) (sin delta))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (sin (+ phi1 delta)) (sin.f64 (-.f64 delta (*.f64 #s(literal -1 binary64) phi1))))
#s(approx (+ phi1 delta) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 delta phi1)) #s(literal 1 binary64)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 delta delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (sin.f64 theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (fma.f64 (cos.f64 phi1) (sin.f64 theta) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (sin.f64 theta)) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 delta delta) (.f64 (cos.f64 phi1) (sin.f64 theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (fma.f64 (cos.f64 phi1) (sin.f64 theta) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (sin.f64 theta)) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 delta delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (.f64 #s(literal 1/120 binary64) (*.f64 (cos.f64 phi1) (sin.f64 theta))))))))))
#s(approx (* (sin theta) (sin delta)) (*.f64 delta (sin.f64 theta)))
#s(approx (* (sin theta) (sin delta)) (.f64 delta (-.f64 (sin.f64 theta) (.f64 #s(literal 1/6 binary64) (.f64 (.f64 delta delta) (sin.f64 theta))))))
#s(approx (* (sin theta) (sin delta)) (.f64 delta (+.f64 (sin.f64 theta) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (sin.f64 theta) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 delta delta) (sin.f64 theta))))))))
#s(approx (* (sin theta) (sin delta)) (.f64 delta (+.f64 (sin.f64 theta) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (sin.f64 theta) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 delta delta) (sin.f64 theta)) (.f64 #s(literal 1/120 binary64) (sin.f64 theta)))))))))
#s(approx (sin delta) delta)
#s(approx (sin delta) (.f64 delta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (*.f64 delta delta)))))
#s(approx (sin delta) (.f64 delta (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (*.f64 delta delta)) #s(literal 1/6 binary64))))))
#s(approx (sin delta) (.f64 delta (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 (.f64 delta delta) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)))) #s(literal 1/6 binary64))))))
#s(approx delta delta)
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 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) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (-.f64 (fma.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal -1 binary64))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) #s(literal 1 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal -1 binary64))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))) (/.f64 (fma.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) #s(literal 1 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))))) (.f64 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) #s(literal 1 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) #s(literal 1 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal -1 binary64))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))
#s(approx (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (-.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (.f64 delta (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (-.f64 (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))))))) (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (pow (cos delta) 3) #s(literal 1 binary64))
#s(approx (pow (cos delta) 3) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -3/2 binary64) (.f64 delta delta))))
#s(approx (pow (cos delta) 3) (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 7/8 binary64) (.f64 delta delta)) #s(literal 3/2 binary64)))))
#s(approx (pow (cos delta) 3) (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 (.f64 delta delta) (+.f64 #s(literal 7/8 binary64) (.f64 #s(literal -61/240 binary64) (.f64 delta delta)))) #s(literal 3/2 binary64)))))
#s(approx (cos delta) #s(literal 1 binary64))
#s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta))))
#s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 delta delta)) #s(literal 1/2 binary64)))))
#s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 (.f64 delta delta) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 delta delta)))) #s(literal 1/2 binary64)))))
#s(approx (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3)) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))
#s(approx (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3)) (fma.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3)) (fma.f64 delta (fma.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3)) (fma.f64 delta (fma.f64 delta (fma.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))
#s(approx (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (fma.f64 delta (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 3 binary64))))
#s(approx (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) (.f64 (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))))
#s(approx (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 delta (fma.f64 #s(literal -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))) (fma.f64 delta (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))))) (.f64 (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))))
#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) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 delta delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (.f64 #s(literal 1/120 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
#s(approx (* (cos phi1) (sin delta)) (*.f64 delta (cos.f64 phi1)))
#s(approx (* (cos phi1) (sin delta)) (.f64 delta (-.f64 (cos.f64 phi1) (.f64 #s(literal 1/6 binary64) (.f64 (.f64 delta delta) (cos.f64 phi1))))))
#s(approx (* (cos phi1) (sin delta)) (.f64 delta (+.f64 (cos.f64 phi1) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 delta delta) (cos.f64 phi1))))))))
#s(approx (* (cos phi1) (sin delta)) (.f64 delta (+.f64 (cos.f64 phi1) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 delta delta) (cos.f64 phi1)) (.f64 #s(literal 1/120 binary64) (cos.f64 phi1)))))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (+.f64 #s(literal 1 binary64) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (+.f64 #s(literal 1 binary64) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (+.f64 #s(literal 1 binary64) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
#s(approx (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 delta (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 delta (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (fma.f64 #s(literal 2 binary64) (.f64 delta (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 delta (fma.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) (fma.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (.f64 delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) (fma.f64 delta (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal -1/6 binary64) (.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (fma.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (fma.f64 delta (fma.f64 #s(literal -1 binary64) (.f64 delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (fma.f64 delta (fma.f64 delta (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 delta (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 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) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (-.f64 (fma.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal -1 binary64))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) #s(literal 1 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal -1 binary64))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))) (/.f64 (fma.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) #s(literal 1 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))))) (.f64 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) #s(literal 1 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) #s(literal 1 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal -1 binary64))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (.f64 delta (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (-.f64 (.f64 delta (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (+ 1 (* -1/2 (* delta delta))) #s(literal 1 binary64))
#s(approx (+ 1 (* -1/2 (* delta delta))) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta))))
#s(approx (* -1/2 (* delta delta)) (.f64 #s(literal -1/2 binary64) (.f64 delta delta)))
#s(approx (* delta delta) (*.f64 delta delta))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (.f64 delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 delta (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal -1/6 binary64) (.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 phi1))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+.f64 (sin.f64 phi1) (.f64 delta (.f64 (cos.f64 phi1) (cos.f64 theta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+.f64 (sin.f64 phi1) (.f64 delta (fma.f64 #s(literal -1/2 binary64) (.f64 delta (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+.f64 (sin.f64 phi1) (.f64 delta (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal -1/6 binary64) (.f64 delta (.f64 (cos.f64 phi1) (cos.f64 theta))))) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))
#s(approx (sin (+ phi1 delta)) (sin.f64 phi1))
#s(approx (sin (+ phi1 delta)) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1))))
#s(approx (sin (+ phi1 delta)) (+.f64 (sin.f64 phi1) (.f64 delta (-.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (*.f64 delta (sin.f64 phi1)))))))
#s(approx (sin (+ phi1 delta)) (+.f64 (sin.f64 phi1) (.f64 delta (+.f64 (cos.f64 phi1) (.f64 delta (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal -1/6 binary64) (.f64 delta (cos.f64 phi1)))))))))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (sin.f64 phi1))
#s(approx (+ (sin phi1) (* delta (cos phi1))) (sin.f64 phi1))
#s(approx (* (cos phi1) (* (sin delta) (sin theta))) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta))))
#s(approx (* (cos phi1) (* (sin delta) (sin theta))) (.f64 delta (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 delta delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (sin.f64 theta)))))
#s(approx (* (cos phi1) (* (sin delta) (sin theta))) (.f64 delta (fma.f64 (cos.f64 phi1) (sin.f64 theta) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (sin.f64 theta)) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 delta delta) (.f64 (cos.f64 phi1) (sin.f64 theta)))))))))
#s(approx (* (cos phi1) (* (sin delta) (sin theta))) (.f64 delta (fma.f64 (cos.f64 phi1) (sin.f64 theta) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (sin.f64 theta)) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 delta delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (.f64 #s(literal 1/120 binary64) (*.f64 (cos.f64 phi1) (sin.f64 theta))))))))))
#s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))
#s(approx (* (sin delta) (sin theta)) (.f64 delta (-.f64 (sin.f64 theta) (.f64 #s(literal 1/6 binary64) (.f64 (.f64 delta delta) (sin.f64 theta))))))
#s(approx (* (sin delta) (sin theta)) (.f64 delta (+.f64 (sin.f64 theta) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (sin.f64 theta) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 delta delta) (sin.f64 theta))))))))
#s(approx (* (sin delta) (sin theta)) (.f64 delta (+.f64 (sin.f64 theta) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (sin.f64 theta) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 delta delta) (sin.f64 theta)) (.f64 #s(literal 1/120 binary64) (sin.f64 theta)))))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (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) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (.f64 delta (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (-.f64 (.f64 delta (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (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) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (.f64 delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (fma.f64 delta (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal -1/6 binary64) (.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (sin.f64 phi1))
#s(approx (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (+.f64 (sin.f64 phi1) (.f64 delta (.f64 (cos.f64 phi1) (cos.f64 theta)))))
#s(approx (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (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 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (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 phi1) (* (cos theta) (sin delta))) (.f64 delta (.f64 (cos.f64 phi1) (cos.f64 theta))))
#s(approx (* (cos phi1) (* (cos theta) (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 phi1) (* (cos theta) (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 phi1) (* (cos theta) (sin delta))) (.f64 delta (fma.f64 (cos.f64 phi1) (cos.f64 theta) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 delta delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (.f64 #s(literal 1/120 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
#s(approx (* (cos theta) (sin delta)) (*.f64 delta (cos.f64 theta)))
#s(approx (* (cos theta) (sin delta)) (.f64 delta (-.f64 (cos.f64 theta) (.f64 #s(literal 1/6 binary64) (.f64 (.f64 delta delta) (cos.f64 theta))))))
#s(approx (* (cos theta) (sin delta)) (.f64 delta (+.f64 (cos.f64 theta) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (cos.f64 theta) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 delta delta) (cos.f64 theta))))))))
#s(approx (* (cos theta) (sin delta)) (.f64 delta (+.f64 (cos.f64 theta) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (cos.f64 theta) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 delta delta) (cos.f64 theta)) (.f64 #s(literal 1/120 binary64) (cos.f64 theta)))))))))
#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (sin delta) (sin.f64 delta))
#s(approx (pow (cos delta) 3) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)))
#s(approx (cos delta) (cos.f64 delta))
#s(approx (+ 1 (* -1/2 (* delta delta))) (.f64 #s(literal -1/2 binary64) (.f64 delta delta)))
#s(approx (+ 1 (* -1/2 (* delta delta))) (.f64 (.f64 delta delta) (-.f64 (pow.f64 delta #s(literal -2 binary64)) #s(literal 1/2 binary64))))
#s(approx (+ phi1 delta) (*.f64 delta (+.f64 #s(literal 1 binary64) (/.f64 phi1 delta))))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (.f64 delta (.f64 (cos.f64 phi1) (cos.f64 theta))))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (*.f64 delta (fma.f64 (cos.f64 phi1) (cos.f64 theta) (/.f64 (sin.f64 phi1) delta))))
#s(approx (+ (sin phi1) (* delta (cos phi1))) (*.f64 delta (cos.f64 phi1)))
#s(approx (+ (sin phi1) (* delta (cos phi1))) (*.f64 delta (+.f64 (cos.f64 phi1) (/.f64 (sin.f64 phi1) delta))))
#s(approx (* (sin delta) (sin theta)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (* (cos theta) (sin delta)) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (sin (+ phi1 delta)) (sin.f64 (-.f64 phi1 (*.f64 #s(literal -1 binary64) delta))))
#s(approx (+ phi1 delta) (.f64 #s(literal -1 binary64) (.f64 delta (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 phi1 delta)) #s(literal 1 binary64)))))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (.f64 #s(literal -1 binary64) (.f64 delta (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi1) delta))))))
#s(approx (+ (sin phi1) (* delta (cos phi1))) (.f64 #s(literal -1 binary64) (.f64 delta (fma.f64 #s(literal -1 binary64) (cos.f64 phi1) (*.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi1) delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 theta (.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 theta (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 theta (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 theta (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 #s(literal 1/120 binary64) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))))
#s(approx (* (sin theta) (sin delta)) (*.f64 theta (sin.f64 delta)))
#s(approx (* (sin theta) (sin delta)) (.f64 theta (-.f64 (sin.f64 delta) (.f64 #s(literal 1/6 binary64) (.f64 (.f64 theta theta) (sin.f64 delta))))))
#s(approx (* (sin theta) (sin delta)) (.f64 theta (+.f64 (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/6 binary64) (sin.f64 delta) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 theta theta) (sin.f64 delta))))))))
#s(approx (* (sin theta) (sin delta)) (.f64 theta (+.f64 (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/6 binary64) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 theta theta) (sin.f64 delta)) (.f64 #s(literal 1/120 binary64) (sin.f64 delta)))))))))
#s(approx (sin theta) theta)
#s(approx (sin theta) (.f64 theta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)))))
#s(approx (sin theta) (.f64 theta (+.f64 #s(literal 1 binary64) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal 1/120 binary64) (*.f64 theta theta)) #s(literal 1/6 binary64))))))
#s(approx (sin theta) (.f64 theta (+.f64 #s(literal 1 binary64) (.f64 (.f64 theta theta) (-.f64 (.f64 (.f64 theta theta) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (*.f64 theta theta)))) #s(literal 1/6 binary64))))))
#s(approx theta theta)
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))
#s(approx (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3)) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3)) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3)) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))
#s(approx (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))
#s(approx (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))
#s(approx (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))
#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) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 theta theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))
#s(approx (cos theta) #s(literal 1 binary64))
#s(approx (cos theta) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 theta theta))))
#s(approx (cos theta) (+.f64 #s(literal 1 binary64) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 theta theta)) #s(literal 1/2 binary64)))))
#s(approx (cos theta) (+.f64 #s(literal 1 binary64) (.f64 (.f64 theta theta) (-.f64 (.f64 (.f64 theta theta) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 theta theta)))) #s(literal 1/2 binary64)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (pow.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) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))
#s(approx (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))
#s(approx (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))))
#s(approx (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))))))
#s(approx (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 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) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))))
#s(approx (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (-.f64 (cos.f64 delta) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (+.f64 (cos.f64 delta) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1/24 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (+.f64 (cos.f64 delta) (.f64 (.f64 theta theta) (-.f64 (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal 1/720 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 theta theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1))))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 delta (.f64 (.f64 theta theta) (cos.f64 phi1))) (.f64 delta (cos.f64 phi1)))))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (fma.f64 delta (cos.f64 phi1) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 delta (cos.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 delta (.f64 (*.f64 theta theta) (cos.f64 phi1)))))))))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (fma.f64 delta (cos.f64 phi1) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 delta (cos.f64 phi1)) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 delta (.f64 (.f64 theta theta) (cos.f64 phi1))) (.f64 #s(literal 1/24 binary64) (.f64 delta (cos.f64 phi1))))))))))
#s(approx (* (cos phi1) (* (sin delta) (sin theta))) (.f64 theta (.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (* (cos phi1) (* (sin delta) (sin theta))) (.f64 theta (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (* (cos phi1) (* (sin delta) (sin theta))) (.f64 theta (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))
#s(approx (* (cos phi1) (* (sin delta) (sin theta))) (.f64 theta (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 #s(literal 1/120 binary64) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))))
#s(approx (* (sin delta) (sin theta)) (*.f64 theta (sin.f64 delta)))
#s(approx (* (sin delta) (sin theta)) (.f64 theta (-.f64 (sin.f64 delta) (.f64 #s(literal 1/6 binary64) (.f64 (.f64 theta theta) (sin.f64 delta))))))
#s(approx (* (sin delta) (sin theta)) (.f64 theta (+.f64 (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/6 binary64) (sin.f64 delta) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 theta theta) (sin.f64 delta))))))))
#s(approx (* (sin delta) (sin theta)) (.f64 theta (+.f64 (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/6 binary64) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 theta theta) (sin.f64 delta)) (.f64 #s(literal 1/120 binary64) (sin.f64 delta)))))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (-.f64 (-.f64 (cos.f64 delta) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (-.f64 (+.f64 (cos.f64 delta) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1/24 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (-.f64 (+.f64 (cos.f64 delta) (.f64 (.f64 theta theta) (-.f64 (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal 1/720 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))))
#s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))))))
#s(approx (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (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 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (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 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))))
#s(approx (* (cos phi1) (* (cos theta) (sin delta))) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
#s(approx (* (cos phi1) (* (cos theta) (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 phi1) (* (cos theta) (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 phi1) (* (cos theta) (sin delta))) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))
#s(approx (* (cos theta) (sin delta)) (sin.f64 delta))
#s(approx (* (cos theta) (sin delta)) (-.f64 (sin.f64 delta) (.f64 #s(literal 1/2 binary64) (.f64 (*.f64 theta theta) (sin.f64 delta)))))
#s(approx (* (cos theta) (sin delta)) (+.f64 (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (sin.f64 delta) (.f64 #s(literal 1/24 binary64) (.f64 (*.f64 theta theta) (sin.f64 delta)))))))
#s(approx (* (cos theta) (sin delta)) (+.f64 (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 theta theta) (sin.f64 delta)) (*.f64 #s(literal 1/24 binary64) (sin.f64 delta))))))))
#s(approx (sin theta) (sin.f64 theta))
#s(approx (cos theta) (cos.f64 theta))

eval275.0ms (2.5%)

Memory: -19.2MiB live, 320.2MiB allocated; 51ms collecting garbage
Compiler: Compiled 101 995 to 6 061 computations (94.1% saved)

prune104.0ms (1%)

Memory

-17.1MiB live, 128.0MiB allocated; 5ms collecting garbage

Pruning

44 alts after pruning (41 fresh and 3 done)

	Pruned	Kept	Total
New	1 109	25	1 134
Fresh	9	16	25
Picked	4	1	5
Done	0	2	2
Total	1 122	44	1 166

Accuracy

100.0%

Counts

1 166 → 44

Alt Table

Click to see full alt table

Status	Accuracy	Program
	89.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	88.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))))
▶	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.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 (sin.f64 phi1) #s(literal 3 binary64)))) #s(approx (+ ( (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))))
	77.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (exp.f64 (.f64 (log.f64 (cos.f64 delta)) #s(literal 3 binary64))) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))))
✓	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	94.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (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))))))))
	96.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))
	91.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	91.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 #s(approx (+ phi1 delta) delta)))))))
	75.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #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))))))))))
	63.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(approx (+ 1 (* -1/2 (* delta delta))) (.f64 (.f64 delta delta) (-.f64 (pow.f64 delta #s(literal -2 binary64)) #s(literal 1/2 binary64))))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	83.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1)))))))
	96.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))))
	83.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))))))
	86.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 (.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))))))))
	80.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(approx (cos delta) #s(literal 1 binary64)))))
	83.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	73.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #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)))))) (-.f64 #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	78.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1))))) #s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))))
	80.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 delta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 delta delta)))))) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	77.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 delta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 delta delta)))))) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))))
	83.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1)))))))
▶	83.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1)))))))))
	84.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	79.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	81.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 #s(approx (sin theta) theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))))
	91.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	90.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
▶	90.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))))
▶	84.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta)))) (-.f64 #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
✓	27.5%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
▶	24.1%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (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) #s(approx (* (cos theta) (sin delta)) (sin.f64 delta))))))))
	23.5%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) #s(approx ( (cos phi1) (* (cos theta) (sin delta))) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
	20.8%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	23.2%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	19.5%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (.f64 phi1 (.f64 (cos.f64 theta) (sin.f64 delta)))))))
	11.6%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	20.6%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (cos.f64 delta))))
	20.4%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2.f64 #s(approx (* (cos phi1) (* (sin delta) (sin theta))) (.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))))))))
	99.8%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))) lambda1))))
✓	73.9%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

Compiler

Compiled 5 541 to 3 006 computations (45.7% saved)

series123.0ms (1.1%)

Memory

15.0MiB live, 155.1MiB allocated; 5ms collecting garbage

Counts

74 → 438

Calls

Call 1

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

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

Calls

15 calls:

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

rewrite271.0ms (2.5%)

Memory

-3.5MiB live, 230.6MiB allocated; 22ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1779	32874
0	1892	31952
0	8443	30677

Stop Event

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

Counts

512 → 603

Calls

Call 1

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

Outputs
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) #s(approx (+ ( (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) #s(approx (+ ( (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) #s(approx (+ ( (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) #s(approx (+ ( (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) #s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) #s(approx (+ ( (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) #s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) #s(approx (+ ( (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))))
lambda1
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) #s(approx (+ ( (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64))
(sin.f64 theta)
theta
(sin.f64 delta)
delta
(sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 phi1))
(cos.f64 phi1)
phi1
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (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 #s(approx (+ ( (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
(/.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))) #s(approx (+ ( (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) #s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64)) #s(approx (+ ( (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
(.f64 (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))) (-.f64 (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 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 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)))) (+.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))))
(/.f64 (-.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64)) #s(literal 3 binary64))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #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)) (.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))))))
(-.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)))
(*.f64 (pow.f64 (cos.f64 delta) #s(literal 3/2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3/2 binary64)))
(*.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (cos.f64 delta))
(*.f64 (cos.f64 delta) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))
(pow.f64 (cos.f64 delta) #s(literal 3 binary64))
(exp.f64 (*.f64 (log.f64 (cos.f64 delta)) #s(literal 3 binary64)))
(sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 delta))
(cos.f64 delta)
#s(literal 3 binary64)
(.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3/2 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3/2 binary64)))
(.f64 (pow.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 (sin.f64 phi1) #s(literal 3 binary64)))
(.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))
(.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)))
(pow.f64 (.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))
(exp.f64 (.f64 (log.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)))
(.f64 (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3/2 binary64)) (pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3/2 binary64)))
(.f64 (.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))))) (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)))) (.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))))))
(pow.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))
(exp.f64 (.f64 (log.f64 (fma.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 (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 (.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))))
(sin.f64 phi1)
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(sin.f64 (+.f64 theta (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 theta))
(cos.f64 theta)
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(*.f64 (pow.f64 (sin.f64 phi1) #s(literal 3/2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3/2 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)))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))) (.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 (.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(literal 3 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (-.f64 (.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
(fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
(+.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)) (-.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (.f64 (.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 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 delta))))
(+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (.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)) (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) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (.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 (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
(fma.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 1 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 1 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))
(fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))
(fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (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))))) (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) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))
(.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 1 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 1 binary64)))
(.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 2 binary64)))
(.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (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))))))
(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))
(exp.f64 (.f64 (log.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(literal 2 binary64)
(*.f64 (pow.f64 (cos.f64 delta) #s(literal 1 binary64)) (pow.f64 (cos.f64 delta) #s(literal 1 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 (.f64 lambda1 lambda1) (.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))) (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))))) (-.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta)))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))) (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta)))) (.f64 lambda1 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta)))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))))
(atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(/.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta)))) (-.f64 #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))) (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta)))) (-.f64 #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))) (-.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta)))) (-.f64 #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta)))) (-.f64 #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta)))) (-.f64 #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))) (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta)))) (-.f64 #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))))) (.f64 lambda1 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta)))) (-.f64 #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta)))) (-.f64 #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
(atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta)))) (-.f64 #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta))))
(.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta)))
(*.f64 (cos.f64 phi1) (sin.f64 theta))
(/.f64 (-.f64 (.f64 #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))) #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta))))) (.f64 (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))) (+.f64 #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))))
(/.f64 (-.f64 (pow.f64 #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))) #s(literal 3 binary64))) (fma.f64 #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))) #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))) (fma.f64 (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))) (.f64 #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))))))
(-.f64 #s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))
#s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta))))
(/.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 delta delta)) (.f64 #s(literal -1/2 binary64) (.f64 delta delta)))) (-.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (*.f64 delta delta))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 #s(literal -1/2 binary64) (.f64 delta delta)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 delta delta)) (.f64 #s(literal -1/2 binary64) (.f64 delta delta))) (.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta))))))
(-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta)))
(+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta)))
#s(literal 1 binary64)
(.f64 #s(literal -1/2 binary64) (.f64 delta delta))
#s(literal -1/2 binary64)
(*.f64 (pow.f64 delta #s(literal 1 binary64)) (pow.f64 delta #s(literal 1 binary64)))
(*.f64 (fabs.f64 delta) (fabs.f64 delta))
(*.f64 (neg.f64 delta) (neg.f64 delta))
(*.f64 delta delta)
(pow.f64 delta #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 delta) #s(literal 2 binary64)))
(.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))
(fma.f64 (sin.f64 phi1) (cos.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
(sin.f64 (+.f64 phi1 delta))
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(/.f64 (-.f64 (.f64 phi1 phi1) (.f64 delta delta)) (-.f64 phi1 delta))
(/.f64 (+.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 delta #s(literal 3 binary64))) (fma.f64 phi1 phi1 (-.f64 (.f64 delta delta) (.f64 phi1 delta))))
(+.f64 phi1 delta)
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (.f64 delta (cos.f64 phi1)))))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (.f64 delta (cos.f64 phi1)))))))))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1))))))))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (.f64 delta (cos.f64 phi1)))))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (.f64 delta (cos.f64 phi1)))))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (.f64 delta (cos.f64 phi1))))))))) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1))))))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1)))))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1))))))))
(.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1))
(*.f64 (sin.f64 theta) #s(approx (sin delta) delta))
#s(approx (sin delta) delta)
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (.f64 delta (cos.f64 phi1)))))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (.f64 delta (cos.f64 phi1)))))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1))))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (.f64 delta (cos.f64 phi1)))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (.f64 delta (cos.f64 phi1)))))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (.f64 delta (cos.f64 phi1)))))) (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1))))))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1)))))))
(.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1)))))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 delta (cos.f64 phi1)) (.f64 delta (cos.f64 phi1)))) (-.f64 (sin.f64 phi1) (.f64 delta (cos.f64 phi1))))
(/.f64 (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 delta (cos.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (-.f64 (.f64 (.f64 delta (cos.f64 phi1)) (.f64 delta (cos.f64 phi1))) (.f64 (sin.f64 phi1) (.f64 delta (cos.f64 phi1))))))
(-.f64 (sin.f64 phi1) (*.f64 (neg.f64 delta) (cos.f64 phi1)))
(+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1)))
(*.f64 delta (cos.f64 phi1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) #s(approx (* (cos theta) (sin delta)) (sin.f64 delta))))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) #s(approx (* (cos theta) (sin delta)) (sin.f64 delta)))))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) #s(approx ( (cos theta) (sin delta)) (sin.f64 delta))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) #s(approx (* (cos theta) (sin delta)) (sin.f64 delta))))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) #s(approx (* (cos theta) (sin delta)) (sin.f64 delta)))))))
(/.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) #s(approx (* (cos theta) (sin delta)) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) #s(approx (* (cos theta) (sin delta)) (sin.f64 delta))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) #s(approx (* (cos theta) (sin delta)) (sin.f64 delta))))) (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)))))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) #s(approx (* (cos theta) (sin delta)) (sin.f64 delta))))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) #s(approx (* (cos theta) (sin delta)) (sin.f64 delta)))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx ( (cos theta) (sin delta)) (sin.f64 delta))) (.f64 (cos.f64 phi1) #s(approx ( (cos theta) (sin delta)) (sin.f64 delta))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) #s(approx (* (cos theta) (sin delta)) (sin.f64 delta)))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) #s(approx (* (cos theta) (sin delta)) (sin.f64 delta))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 delta) (sin.f64 phi1)) (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(approx (* (cos theta) (sin delta)) (sin.f64 delta))) (.f64 (cos.f64 phi1) #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)))) (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)))))))
(fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) #s(approx ( (cos theta) (sin delta)) (sin.f64 delta))))
(-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (neg.f64 (cos.f64 phi1)) #s(approx (* (cos theta) (sin delta)) (sin.f64 delta))))
(+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) #s(approx (* (cos theta) (sin delta)) (sin.f64 delta))))
(.f64 (cos.f64 phi1) #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)))
#s(approx (* (cos theta) (sin delta)) (sin.f64 delta))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))))
#s(approx lambda1 lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) lambda1))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) lambda1))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))) lambda1))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))) lambda1))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi1 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (sin.f64 delta) (sin.f64 theta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 delta) (sin.f64 theta)) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 phi1 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (sin.f64 delta) (sin.f64 theta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 delta) (sin.f64 theta)) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi1 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (.f64 #s(literal 1/24 binary64) (.f64 (sin.f64 delta) (sin.f64 theta)))))))))
#s(approx (cos phi1) #s(literal 1 binary64))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)))) #s(literal 1/2 binary64)))))
#s(approx phi1 phi1)
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (-.f64 (cos.f64 delta) (.f64 #s(literal 1 binary64) (.f64 phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (cos.f64 delta)) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (cos.f64 delta)))))) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (+.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (cos.f64 delta)) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (cos.f64 delta)))))) (cos.f64 delta)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (+.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))))))) (+.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (cos.f64 delta)) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (cos.f64 delta)))))) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)))
#s(approx (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))))
#s(approx (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (fma.f64 (pow.f64 phi1 #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))))
#s(approx (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (fma.f64 (pow.f64 phi1 #s(literal 3 binary64)) (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))))
#s(approx (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3)) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))))
#s(approx (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3)) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)))))
#s(approx (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3)) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)))))
#s(approx (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3)) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))))))))))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)))))
#s(approx (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)))
#s(approx (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))))
#s(approx (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))))
#s(approx (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (cos.f64 theta) (sin.f64 delta))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (fma.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))))))))) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))) (.f64 (cos.f64 delta) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64))))
#s(approx (+ (* (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 (sin phi1) phi1)
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (*.f64 phi1 phi1)))))
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/120 binary64) (*.f64 phi1 phi1)) #s(literal 1/6 binary64))))))
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (*.f64 phi1 phi1)))) #s(literal 1/6 binary64))))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi1 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 phi1 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi1 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))))))
#s(approx (* (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 (pow (sin phi1) 3) (pow.f64 phi1 #s(literal 3 binary64)))
#s(approx (pow (sin phi1) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1)))))
#s(approx (pow (sin phi1) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (+.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 (pow.f64 phi1 #s(literal 3 binary64)) (+.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 (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 phi1 (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 phi1 (fma.f64 phi1 (+.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (+.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
#s(approx (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (pow (cos delta) 2))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))
#s(approx (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (pow (cos delta) 2))) (fma.f64 phi1 (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
#s(approx (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (pow (cos delta) 2))) (fma.f64 phi1 (fma.f64 phi1 (+.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
#s(approx (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (pow (cos delta) 2))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 (cos.f64 delta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (+.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta)))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
#s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (.f64 phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (.f64 phi1 (fma.f64 phi1 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (.f64 phi1 (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (.f64 phi1 (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (fma.f64 #s(literal -1/3 binary64) (.f64 phi1 (cos.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (fma.f64 phi1 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (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 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (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 phi1) (* (cos theta) (sin delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (* (cos phi1) (* (cos theta) (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 phi1) (* (cos theta) (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 phi1) (* (cos theta) (sin delta))) (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi1 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))))))
#s(approx (+ (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (pow (cos delta) 2)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))
#s(approx (+ (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (pow (cos delta) 2)) (fma.f64 (.f64 phi1 phi1) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
#s(approx (+ (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (pow (cos delta) 2)) (fma.f64 (.f64 phi1 phi1) (fma.f64 #s(literal 2 binary64) (.f64 phi1 (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
#s(approx (+ (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (pow (cos delta) 2)) (fma.f64 (.f64 phi1 phi1) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
#s(approx (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (.f64 (.f64 phi1 phi1) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))
#s(approx (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal 2 binary64) (.f64 phi1 (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))
#s(approx (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (.f64 (.f64 phi1 phi1) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))
#s(approx (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (.f64 (.f64 phi1 phi1) (fma.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (fma.f64 #s(literal -2/3 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (-.f64 (cos.f64 delta) (.f64 #s(literal 1 binary64) (.f64 phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (cos.f64 delta)) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (cos.f64 delta)))))) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 3 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (+.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (cos.f64 delta)) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (cos.f64 delta)))))) (cos.f64 delta)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (+.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))))))) (+.f64 (cos.f64 delta) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (cos.f64 delta)) (/.f64 (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (cos.f64 delta)))))) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
#s(approx (* delta (* (cos phi1) (sin theta))) (*.f64 delta (sin.f64 theta)))
#s(approx (* delta (* (cos phi1) (sin theta))) (fma.f64 #s(literal -1/2 binary64) (.f64 delta (.f64 (.f64 phi1 phi1) (sin.f64 theta))) (.f64 delta (sin.f64 theta))))
#s(approx (* delta (* (cos phi1) (sin theta))) (fma.f64 delta (sin.f64 theta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 delta (sin.f64 theta)) (.f64 #s(literal 1/24 binary64) (.f64 delta (.f64 (*.f64 phi1 phi1) (sin.f64 theta))))))))
#s(approx (* delta (* (cos phi1) (sin theta))) (fma.f64 delta (sin.f64 theta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 delta (sin.f64 theta)) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/720 binary64) (.f64 delta (.f64 (.f64 phi1 phi1) (sin.f64 theta))) (.f64 #s(literal 1/24 binary64) (.f64 delta (sin.f64 theta)))))))))
#s(approx (* (cos phi1) (sin theta)) (sin.f64 theta))
#s(approx (* (cos phi1) (sin theta)) (-.f64 (sin.f64 theta) (.f64 #s(literal 1/2 binary64) (.f64 (*.f64 phi1 phi1) (sin.f64 theta)))))
#s(approx (* (cos phi1) (sin theta)) (+.f64 (sin.f64 theta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 theta) (.f64 #s(literal 1/24 binary64) (.f64 (*.f64 phi1 phi1) (sin.f64 theta)))))))
#s(approx (* (cos phi1) (sin theta)) (+.f64 (sin.f64 theta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 theta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi1 phi1) (sin.f64 theta)) (*.f64 #s(literal 1/24 binary64) (sin.f64 theta))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 #s(literal 1 binary64) (.f64 phi1 (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 delta))) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (cos.f64 delta))) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (fma.f64 phi1 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (fma.f64 #s(literal -1/3 binary64) (.f64 phi1 (cos.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta))))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 phi1 (cos.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 phi1 (-.f64 (cos.f64 delta) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 theta) (sin.f64 delta))))) (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 delta)))))) (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (sin (+ phi1 delta)) (sin.f64 delta))
#s(approx (sin (+ phi1 delta)) (+.f64 (sin.f64 delta) (*.f64 phi1 (cos.f64 delta))))
#s(approx (sin (+ phi1 delta)) (+.f64 (sin.f64 delta) (.f64 phi1 (-.f64 (cos.f64 delta) (.f64 #s(literal 1/2 binary64) (*.f64 phi1 (sin.f64 delta)))))))
#s(approx (sin (+ phi1 delta)) (+.f64 (sin.f64 delta) (.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 delta) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 delta)))))))))
#s(approx (+ phi1 delta) delta)
#s(approx (+ phi1 delta) (+.f64 delta phi1))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (*.f64 delta (cos.f64 theta)))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 phi1 (*.f64 delta (cos.f64 theta))))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (fma.f64 delta (cos.f64 theta) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta (.f64 phi1 (cos.f64 theta))))))))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (fma.f64 delta (cos.f64 theta) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 delta (cos.f64 theta)) (.f64 #s(literal -1/6 binary64) phi1)))))))
#s(approx (+ (sin phi1) (* delta (cos phi1))) delta)
#s(approx (+ (sin phi1) (* delta (cos phi1))) (+.f64 delta phi1))
#s(approx (+ (sin phi1) (* delta (cos phi1))) (+.f64 delta (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (*.f64 delta phi1))))))
#s(approx (+ (sin phi1) (* delta (cos phi1))) (+.f64 delta (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) delta (*.f64 #s(literal -1/6 binary64) phi1)))))))
#s(approx (* delta (cos phi1)) delta)
#s(approx (* delta (cos phi1)) (+.f64 delta (.f64 #s(literal -1/2 binary64) (.f64 delta (*.f64 phi1 phi1)))))
#s(approx (* delta (cos phi1)) (+.f64 delta (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) delta (.f64 #s(literal 1/24 binary64) (.f64 delta (*.f64 phi1 phi1)))))))
#s(approx (* delta (cos phi1)) (+.f64 delta (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) delta (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/720 binary64) (.f64 delta (.f64 phi1 phi1)) (*.f64 #s(literal 1/24 binary64) delta)))))))
#s(approx (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
#s(approx (* (cos phi1) (* (sin delta) (sin theta))) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (* (cos phi1) (* (sin delta) (sin theta))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi1 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (* (cos phi1) (* (sin delta) (sin theta))) (fma.f64 (sin.f64 delta) (sin.f64 theta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 delta) (sin.f64 theta)) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 phi1 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))))))))
#s(approx (* (cos phi1) (* (sin delta) (sin theta))) (fma.f64 (sin.f64 delta) (sin.f64 theta) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 delta) (sin.f64 theta)) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 phi1 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (.f64 #s(literal 1/24 binary64) (.f64 (sin.f64 delta) (sin.f64 theta)))))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (cos.f64 delta))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (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) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (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) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (cos.f64 delta))) (.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (cos phi1) (cos.f64 phi1))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))))
#s(approx (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64)))
#s(approx (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (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 (+ (* (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 (sin phi1) (sin.f64 phi1))
#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)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
#s(approx (pow (sin phi1) 3) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
#s(approx (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (pow (cos delta) 2))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
#s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (* (cos phi1) (* (cos theta) (sin delta))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (+ (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (pow (cos delta) 2)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
#s(approx (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (* delta (* (cos phi1) (sin theta))) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta))))
#s(approx (* (cos phi1) (sin theta)) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))))
#s(approx (sin (+ phi1 delta)) (sin.f64 (+.f64 delta phi1)))
#s(approx (+ phi1 delta) phi1)
#s(approx (+ phi1 delta) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (/.f64 delta phi1))))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (.f64 delta (.f64 (cos.f64 phi1) (cos.f64 theta)))))
#s(approx (+ (sin phi1) (* delta (cos phi1))) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1))))
#s(approx (* delta (cos phi1)) (*.f64 delta (cos.f64 phi1)))
#s(approx (* (cos phi1) (* (sin delta) (sin theta))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
#s(approx (sin (+ phi1 delta)) (sin.f64 (-.f64 delta (*.f64 #s(literal -1 binary64) phi1))))
#s(approx (+ phi1 delta) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 delta phi1)) #s(literal 1 binary64)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 delta delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (sin.f64 theta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (fma.f64 (cos.f64 phi1) (sin.f64 theta) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (sin.f64 theta)) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 delta delta) (.f64 (cos.f64 phi1) (sin.f64 theta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (fma.f64 (cos.f64 phi1) (sin.f64 theta) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (sin.f64 theta)) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 delta delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (.f64 #s(literal 1/120 binary64) (*.f64 (cos.f64 phi1) (sin.f64 theta))))))))))
#s(approx (* (sin theta) (sin delta)) (*.f64 delta (sin.f64 theta)))
#s(approx (* (sin theta) (sin delta)) (.f64 delta (-.f64 (sin.f64 theta) (.f64 #s(literal 1/6 binary64) (.f64 (.f64 delta delta) (sin.f64 theta))))))
#s(approx (* (sin theta) (sin delta)) (.f64 delta (+.f64 (sin.f64 theta) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (sin.f64 theta) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 delta delta) (sin.f64 theta))))))))
#s(approx (* (sin theta) (sin delta)) (.f64 delta (+.f64 (sin.f64 theta) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (sin.f64 theta) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 delta delta) (sin.f64 theta)) (.f64 #s(literal 1/120 binary64) (sin.f64 theta)))))))))
#s(approx (sin delta) delta)
#s(approx (sin delta) (.f64 delta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (*.f64 delta delta)))))
#s(approx (sin delta) (.f64 delta (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (*.f64 delta delta)) #s(literal 1/6 binary64))))))
#s(approx (sin delta) (.f64 delta (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 (.f64 delta delta) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)))) #s(literal 1/6 binary64))))))
#s(approx delta delta)
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 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) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (-.f64 (fma.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal -1 binary64))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) #s(literal 1 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal -1 binary64))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))) (/.f64 (fma.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) #s(literal 1 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))))) (.f64 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) #s(literal 1 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) #s(literal 1 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal -1 binary64))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))
#s(approx (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (-.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (.f64 delta (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (-.f64 (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))))))) (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (pow (cos delta) 3) #s(literal 1 binary64))
#s(approx (pow (cos delta) 3) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -3/2 binary64) (.f64 delta delta))))
#s(approx (pow (cos delta) 3) (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 7/8 binary64) (.f64 delta delta)) #s(literal 3/2 binary64)))))
#s(approx (pow (cos delta) 3) (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 (.f64 delta delta) (+.f64 #s(literal 7/8 binary64) (.f64 #s(literal -61/240 binary64) (.f64 delta delta)))) #s(literal 3/2 binary64)))))
#s(approx (cos delta) #s(literal 1 binary64))
#s(approx (cos delta) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta))))
#s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 delta delta)) #s(literal 1/2 binary64)))))
#s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 (.f64 delta delta) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 delta delta)))) #s(literal 1/2 binary64)))))
#s(approx (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3)) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))
#s(approx (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3)) (fma.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3)) (fma.f64 delta (fma.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3)) (fma.f64 delta (fma.f64 delta (fma.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))))
#s(approx (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))
#s(approx (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (fma.f64 delta (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 3 binary64))))
#s(approx (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) (.f64 (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))))
#s(approx (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 delta (fma.f64 #s(literal -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))) (fma.f64 delta (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))))) (.f64 (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))))
#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) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 delta delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (.f64 #s(literal 1/120 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
#s(approx (* (cos phi1) (sin delta)) (*.f64 delta (cos.f64 phi1)))
#s(approx (* (cos phi1) (sin delta)) (.f64 delta (-.f64 (cos.f64 phi1) (.f64 #s(literal 1/6 binary64) (.f64 (.f64 delta delta) (cos.f64 phi1))))))
#s(approx (* (cos phi1) (sin delta)) (.f64 delta (+.f64 (cos.f64 phi1) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 delta delta) (cos.f64 phi1))))))))
#s(approx (* (cos phi1) (sin delta)) (.f64 delta (+.f64 (cos.f64 phi1) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 delta delta) (cos.f64 phi1)) (.f64 #s(literal 1/120 binary64) (cos.f64 phi1)))))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (+.f64 #s(literal 1 binary64) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (+.f64 #s(literal 1 binary64) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (+.f64 #s(literal 1 binary64) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
#s(approx (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (pow (cos delta) 2))) (+.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) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (pow (cos delta) 2))) (+.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) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (pow (cos delta) 2))) (+.f64 #s(literal 1 binary64) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
#s(approx (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (pow (cos delta) 2))) (+.f64 #s(literal 1 binary64) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
#s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (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) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (.f64 delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (fma.f64 delta (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal -1/6 binary64) (.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (sin.f64 phi1))
#s(approx (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (+.f64 (sin.f64 phi1) (.f64 delta (.f64 (cos.f64 phi1) (cos.f64 theta)))))
#s(approx (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (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 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (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 phi1) (* (cos theta) (sin delta))) (.f64 delta (.f64 (cos.f64 phi1) (cos.f64 theta))))
#s(approx (* (cos phi1) (* (cos theta) (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 phi1) (* (cos theta) (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 phi1) (* (cos theta) (sin delta))) (.f64 delta (fma.f64 (cos.f64 phi1) (cos.f64 theta) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 delta delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (.f64 #s(literal 1/120 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
#s(approx (* (cos theta) (sin delta)) (*.f64 delta (cos.f64 theta)))
#s(approx (* (cos theta) (sin delta)) (.f64 delta (-.f64 (cos.f64 theta) (.f64 #s(literal 1/6 binary64) (.f64 (.f64 delta delta) (cos.f64 theta))))))
#s(approx (* (cos theta) (sin delta)) (.f64 delta (+.f64 (cos.f64 theta) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (cos.f64 theta) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 delta delta) (cos.f64 theta))))))))
#s(approx (* (cos theta) (sin delta)) (.f64 delta (+.f64 (cos.f64 theta) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (cos.f64 theta) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 delta delta) (cos.f64 theta)) (.f64 #s(literal 1/120 binary64) (cos.f64 theta)))))))))
#s(approx (+ (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (pow (cos delta) 2)) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (+ (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (pow (cos delta) 2)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 2 binary64) (.f64 delta (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (+ (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (pow (cos delta) 2)) (+.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 delta (-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) #s(literal 1 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (+ (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (pow (cos delta) 2)) (+.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 delta (-.f64 (fma.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) #s(literal 1 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
#s(approx (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))
#s(approx (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (fma.f64 #s(literal 2 binary64) (.f64 delta (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (fma.f64 delta (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 delta (fma.f64 delta (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (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) (sin theta)) (*.f64 delta (sin.f64 theta)))
#s(approx (* (sin delta) (sin theta)) (.f64 delta (-.f64 (sin.f64 theta) (.f64 #s(literal 1/6 binary64) (.f64 (.f64 delta delta) (sin.f64 theta))))))
#s(approx (* (sin delta) (sin theta)) (.f64 delta (+.f64 (sin.f64 theta) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (sin.f64 theta) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 delta delta) (sin.f64 theta))))))))
#s(approx (* (sin delta) (sin theta)) (.f64 delta (+.f64 (sin.f64 theta) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (sin.f64 theta) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 delta delta) (sin.f64 theta)) (.f64 #s(literal 1/120 binary64) (sin.f64 theta)))))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 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) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (-.f64 (fma.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal -1 binary64))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) #s(literal 1 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal -1 binary64))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (-.f64 (fma.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 delta (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))) (/.f64 (fma.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) #s(literal 1 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))))) (.f64 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) #s(literal 1 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) #s(literal 1 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal 2 binary64)))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal -1 binary64))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (.f64 delta (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (-.f64 (.f64 delta (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (+ 1 (* -1/2 (* delta delta))) #s(literal 1 binary64))
#s(approx (+ 1 (* -1/2 (* delta delta))) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 delta delta))))
#s(approx (* -1/2 (* delta delta)) (.f64 #s(literal -1/2 binary64) (.f64 delta delta)))
#s(approx (* delta delta) (*.f64 delta delta))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (.f64 delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 delta (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal -1/6 binary64) (.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 phi1))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+.f64 (sin.f64 phi1) (.f64 delta (.f64 (cos.f64 phi1) (cos.f64 theta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+.f64 (sin.f64 phi1) (.f64 delta (fma.f64 #s(literal -1/2 binary64) (.f64 delta (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (+.f64 (sin.f64 phi1) (.f64 delta (fma.f64 delta (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal -1/6 binary64) (.f64 delta (.f64 (cos.f64 phi1) (cos.f64 theta))))) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))
#s(approx (sin (+ phi1 delta)) (sin.f64 phi1))
#s(approx (sin (+ phi1 delta)) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1))))
#s(approx (sin (+ phi1 delta)) (+.f64 (sin.f64 phi1) (.f64 delta (-.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (*.f64 delta (sin.f64 phi1)))))))
#s(approx (sin (+ phi1 delta)) (+.f64 (sin.f64 phi1) (.f64 delta (+.f64 (cos.f64 phi1) (.f64 delta (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal -1/6 binary64) (.f64 delta (cos.f64 phi1)))))))))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (sin.f64 phi1))
#s(approx (+ (sin phi1) (* delta (cos phi1))) (sin.f64 phi1))
#s(approx (* (cos phi1) (* (sin delta) (sin theta))) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta))))
#s(approx (* (cos phi1) (* (sin delta) (sin theta))) (.f64 delta (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 delta delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (sin.f64 theta)))))
#s(approx (* (cos phi1) (* (sin delta) (sin theta))) (.f64 delta (fma.f64 (cos.f64 phi1) (sin.f64 theta) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (sin.f64 theta)) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 delta delta) (.f64 (cos.f64 phi1) (sin.f64 theta)))))))))
#s(approx (* (cos phi1) (* (sin delta) (sin theta))) (.f64 delta (fma.f64 (cos.f64 phi1) (sin.f64 theta) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (sin.f64 theta)) (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 delta delta) (.f64 (cos.f64 phi1) (sin.f64 theta))) (.f64 #s(literal 1/120 binary64) (*.f64 (cos.f64 phi1) (sin.f64 theta))))))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (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) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (-.f64 (.f64 #s(literal -1 binary64) (.f64 delta (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 delta (-.f64 (.f64 delta (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 delta (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (sin theta) (sin delta)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (sin delta) (sin.f64 delta))
#s(approx (pow (cos delta) 3) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)))
#s(approx (cos delta) (cos.f64 delta))
#s(approx (* (cos theta) (sin delta)) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (pow (cos delta) 2) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))
#s(approx (* (sin delta) (sin theta)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (+ 1 (* -1/2 (* delta delta))) (.f64 #s(literal -1/2 binary64) (.f64 delta delta)))
#s(approx (+ 1 (* -1/2 (* delta delta))) (.f64 (.f64 delta delta) (-.f64 (pow.f64 delta #s(literal -2 binary64)) #s(literal 1/2 binary64))))
#s(approx (+ phi1 delta) (*.f64 delta (+.f64 #s(literal 1 binary64) (/.f64 phi1 delta))))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (.f64 delta (.f64 (cos.f64 phi1) (cos.f64 theta))))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (*.f64 delta (fma.f64 (cos.f64 phi1) (cos.f64 theta) (/.f64 (sin.f64 phi1) delta))))
#s(approx (+ (sin phi1) (* delta (cos phi1))) (*.f64 delta (cos.f64 phi1)))
#s(approx (+ (sin phi1) (* delta (cos phi1))) (*.f64 delta (+.f64 (cos.f64 phi1) (/.f64 (sin.f64 phi1) delta))))
#s(approx (sin (+ phi1 delta)) (sin.f64 (-.f64 phi1 (*.f64 #s(literal -1 binary64) delta))))
#s(approx (+ phi1 delta) (.f64 #s(literal -1 binary64) (.f64 delta (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 phi1 delta)) #s(literal 1 binary64)))))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (.f64 #s(literal -1 binary64) (.f64 delta (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi1) delta))))))
#s(approx (+ (sin phi1) (* delta (cos phi1))) (.f64 #s(literal -1 binary64) (.f64 delta (fma.f64 #s(literal -1 binary64) (cos.f64 phi1) (*.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi1) delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 theta (.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 theta (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 theta (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 theta (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 #s(literal 1/120 binary64) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))))
#s(approx (* (sin theta) (sin delta)) (*.f64 theta (sin.f64 delta)))
#s(approx (* (sin theta) (sin delta)) (.f64 theta (-.f64 (sin.f64 delta) (.f64 #s(literal 1/6 binary64) (.f64 (.f64 theta theta) (sin.f64 delta))))))
#s(approx (* (sin theta) (sin delta)) (.f64 theta (+.f64 (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/6 binary64) (sin.f64 delta) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 theta theta) (sin.f64 delta))))))))
#s(approx (* (sin theta) (sin delta)) (.f64 theta (+.f64 (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/6 binary64) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 theta theta) (sin.f64 delta)) (.f64 #s(literal 1/120 binary64) (sin.f64 delta)))))))))
#s(approx (sin theta) theta)
#s(approx (sin theta) (.f64 theta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)))))
#s(approx (sin theta) (.f64 theta (+.f64 #s(literal 1 binary64) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal 1/120 binary64) (*.f64 theta theta)) #s(literal 1/6 binary64))))))
#s(approx (sin theta) (.f64 theta (+.f64 #s(literal 1 binary64) (.f64 (.f64 theta theta) (-.f64 (.f64 (.f64 theta theta) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (*.f64 theta theta)))) #s(literal 1/6 binary64))))))
#s(approx theta theta)
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (- (pow (cos delta) 3) (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))
#s(approx (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3)) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3)) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (* (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow (sin phi1) 3)) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))))
#s(approx (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))
#s(approx (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))
#s(approx (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))
#s(approx (pow (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) 3) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))))))) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))
#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) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 theta theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))
#s(approx (* (cos theta) (* (cos phi1) (sin delta))) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))
#s(approx (cos theta) #s(literal 1 binary64))
#s(approx (cos theta) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 theta theta))))
#s(approx (cos theta) (+.f64 #s(literal 1 binary64) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 theta theta)) #s(literal 1/2 binary64)))))
#s(approx (cos theta) (+.f64 #s(literal 1 binary64) (.f64 (.f64 theta theta) (-.f64 (.f64 (.f64 theta theta) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 theta theta)))) #s(literal 1/2 binary64)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (pow (cos delta) 2))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
#s(approx (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (pow (cos delta) 2))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (pow (cos delta) 2))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (+ (* (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (+ (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (pow (cos delta) 2))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (.f64 theta theta) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))))
#s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))))))
#s(approx (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (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 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (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 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))))
#s(approx (* (cos phi1) (* (cos theta) (sin delta))) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
#s(approx (* (cos phi1) (* (cos theta) (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 phi1) (* (cos theta) (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 phi1) (* (cos theta) (sin delta))) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))
#s(approx (* (cos theta) (sin delta)) (sin.f64 delta))
#s(approx (* (cos theta) (sin delta)) (-.f64 (sin.f64 delta) (.f64 #s(literal 1/2 binary64) (.f64 (*.f64 theta theta) (sin.f64 delta)))))
#s(approx (* (cos theta) (sin delta)) (+.f64 (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (sin.f64 delta) (.f64 #s(literal 1/24 binary64) (.f64 (*.f64 theta theta) (sin.f64 delta)))))))
#s(approx (* (cos theta) (sin delta)) (+.f64 (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 theta theta) (sin.f64 delta)) (*.f64 #s(literal 1/24 binary64) (sin.f64 delta))))))))
#s(approx (+ (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (pow (cos delta) 2)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
#s(approx (+ (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (pow (cos delta) 2)) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (pow (cos delta) 2)) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (pow (cos delta) 2)) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))
#s(approx (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)))
#s(approx (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))
#s(approx (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))
#s(approx (pow (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) 2) (fma.f64 (.f64 theta theta) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64))))
#s(approx (* (sin delta) (sin theta)) (*.f64 theta (sin.f64 delta)))
#s(approx (* (sin delta) (sin theta)) (.f64 theta (-.f64 (sin.f64 delta) (.f64 #s(literal 1/6 binary64) (.f64 (.f64 theta theta) (sin.f64 delta))))))
#s(approx (* (sin delta) (sin theta)) (.f64 theta (+.f64 (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/6 binary64) (sin.f64 delta) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 theta theta) (sin.f64 delta))))))))
#s(approx (* (sin delta) (sin theta)) (.f64 theta (+.f64 (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/6 binary64) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 theta theta) (sin.f64 delta)) (.f64 #s(literal 1/120 binary64) (sin.f64 delta)))))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (.f64 theta theta) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (pow.f64 (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (/.f64 (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)))) (pow.f64 (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64)) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))))
#s(approx (* delta (* (cos phi1) (sin theta))) (.f64 delta (.f64 theta (cos.f64 phi1))))
#s(approx (* delta (* (cos phi1) (sin theta))) (.f64 theta (fma.f64 #s(literal -1/6 binary64) (.f64 delta (.f64 (.f64 theta theta) (cos.f64 phi1))) (*.f64 delta (cos.f64 phi1)))))
#s(approx (* delta (* (cos phi1) (sin theta))) (.f64 theta (fma.f64 delta (cos.f64 phi1) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/6 binary64) (.f64 delta (cos.f64 phi1)) (.f64 #s(literal 1/120 binary64) (.f64 delta (.f64 (.f64 theta theta) (cos.f64 phi1)))))))))
#s(approx (* delta (* (cos phi1) (sin theta))) (.f64 theta (fma.f64 delta (cos.f64 phi1) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/6 binary64) (.f64 delta (cos.f64 phi1)) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/5040 binary64) (.f64 delta (.f64 (.f64 theta theta) (cos.f64 phi1))) (.f64 #s(literal 1/120 binary64) (*.f64 delta (cos.f64 phi1))))))))))
#s(approx (* (cos phi1) (sin theta)) (*.f64 theta (cos.f64 phi1)))
#s(approx (* (cos phi1) (sin theta)) (.f64 theta (-.f64 (cos.f64 phi1) (.f64 #s(literal 1/6 binary64) (.f64 (.f64 theta theta) (cos.f64 phi1))))))
#s(approx (* (cos phi1) (sin theta)) (.f64 theta (+.f64 (cos.f64 phi1) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 theta theta) (cos.f64 phi1))))))))
#s(approx (* (cos phi1) (sin theta)) (.f64 theta (+.f64 (cos.f64 phi1) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 theta theta) (cos.f64 phi1)) (.f64 #s(literal 1/120 binary64) (cos.f64 phi1)))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (-.f64 (cos.f64 delta) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (+.f64 (cos.f64 delta) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1/24 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (+.f64 (cos.f64 delta) (.f64 (.f64 theta theta) (-.f64 (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal 1/720 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 theta theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta))))))))))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1))))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 delta (.f64 (.f64 theta theta) (cos.f64 phi1))) (.f64 delta (cos.f64 phi1)))))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (fma.f64 delta (cos.f64 phi1) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 delta (cos.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 delta (.f64 (*.f64 theta theta) (cos.f64 phi1)))))))))
#s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (fma.f64 delta (cos.f64 phi1) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/2 binary64) (.f64 delta (cos.f64 phi1)) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 delta (.f64 (.f64 theta theta) (cos.f64 phi1))) (.f64 #s(literal 1/24 binary64) (.f64 delta (cos.f64 phi1))))))))))
#s(approx (* (cos phi1) (* (sin delta) (sin theta))) (.f64 theta (.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (* (cos phi1) (* (sin delta) (sin theta))) (.f64 theta (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (* (cos phi1) (* (sin delta) (sin theta))) (.f64 theta (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))))))))
#s(approx (* (cos phi1) (* (sin delta) (sin theta))) (.f64 theta (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 #s(literal 1/120 binary64) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (-.f64 (-.f64 (cos.f64 delta) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (-.f64 (+.f64 (cos.f64 delta) (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal -1/24 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (-.f64 (+.f64 (cos.f64 delta) (.f64 (.f64 theta theta) (-.f64 (.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal 1/720 binary64) (.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
#s(approx (sin theta) (sin.f64 theta))
#s(approx (cos theta) (cos.f64 theta))

eval292.0ms (2.7%)

Memory: 57.4MiB live, 325.1MiB allocated; 51ms collecting garbage
Compiler: Compiled 119 078 to 5 992 computations (95% saved)

prune165.0ms (1.5%)

Memory

-8.8MiB live, 143.2MiB allocated; 37ms collecting garbage

Pruning

61 alts after pruning (56 fresh and 5 done)

	Pruned	Kept	Total
New	979	27	1 006
Fresh	7	29	36
Picked	3	2	5
Done	0	3	3
Total	989	61	1 050

Accuracy

100.0%

Counts

1 050 → 61

Alt Table

Click to see full alt table

Status	Accuracy	Program
	89.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	88.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.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 (sin.f64 phi1) #s(literal 3 binary64)))) #s(approx (+ ( (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.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 (sin.f64 phi1) #s(literal 3 binary64)))) #s(approx (+ ( (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))))))))
	77.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (exp.f64 (.f64 (log.f64 (cos.f64 delta)) #s(literal 3 binary64))) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))))
✓	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	94.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (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))))))))
	96.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))
	91.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	91.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 #s(approx (+ phi1 delta) delta)))))))
	75.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #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))))))))))
	63.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(approx (+ 1 (* -1/2 (* delta delta))) (.f64 (.f64 delta delta) (-.f64 (pow.f64 delta #s(literal -2 binary64)) #s(literal 1/2 binary64))))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	83.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1)))))))
	96.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))))
	83.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))))))
	80.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(approx (cos delta) #s(literal 1 binary64)))))
	83.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	80.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1)))))))))
	80.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (.f64 delta (.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
	80.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) #s(approx (+ (sin phi1) (* delta (cos phi1))) (*.f64 delta (cos.f64 phi1)))))))))
	84.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	82.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (+ (* (* (cos phi1) delta) (cos theta)) (sin phi1)) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1)))))))))
	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)))))))))
	81.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 #s(approx (sin theta) theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))))
	78.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (/.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))) #s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))))
	91.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	90.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	82.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))))))
✓	90.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))))
	84.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 (.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))))))))
	79.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(approx (cos delta) #s(literal 1 binary64)))))
	79.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #s(approx (sin theta) (.f64 theta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 theta theta))))))) #s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))))
	81.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #s(approx (sin theta) theta))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))))
	77.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 #s(approx (sin delta) (.f64 delta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 delta delta))))) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))))
	72.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta)))) (-.f64 #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #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))))))))))
	84.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta)))) (-.f64 #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta)))) (.f64 (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)))))))))
	84.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta)))) (-.f64 #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (sin (+ phi1 delta)) (+.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 phi1)))))))))
	76.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta)))) (-.f64 #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta)))) (.f64 #s(approx (sin phi1) phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	82.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta)))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.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))))))
	79.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (.f64 (cos.f64 phi1) (sin.f64 theta)))) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	72.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (.f64 #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))))) (sin.f64 theta)))) (-.f64 #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
	80.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))))
	23.3%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(approx (* (cos theta) (sin delta)) (sin.f64 delta))))))))
✓	27.5%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
✓	24.1%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (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) #s(approx (* (cos theta) (sin delta)) (sin.f64 delta))))))))
	23.2%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (cos theta) (sin delta)) (sin.f64 delta))))))))
	23.5%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) #s(approx ( (cos phi1) (* (cos theta) (sin delta))) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
	23.6%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos delta) #s(literal 1 binary64)) (sin.f64 phi1) (.f64 (cos.f64 phi1) #s(approx (* (cos theta) (sin delta)) (sin.f64 delta))))))))
	20.8%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	23.2%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	19.5%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (.f64 phi1 (.f64 (cos.f64 theta) (sin.f64 delta)))))))
	11.5%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(approx (cos delta) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) #s(approx (* (cos theta) (sin delta)) (sin.f64 delta))))))))
	11.6%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	20.6%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))) (cos.f64 delta))))
	15.3%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) #s(approx (sin theta) theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) #s(approx (* (cos theta) (sin delta)) (sin.f64 delta))))))))
	20.4%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2.f64 #s(approx (* (cos phi1) (* (sin delta) (sin theta))) (.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))))))))
	20.2%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (atan2.f64 #s(approx (* (cos phi1) (* (sin delta) (sin theta))) (.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) #s(approx ( (cos theta) (sin delta)) (sin.f64 delta))))))))
	99.8%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))) lambda1))))
✓	73.9%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

Compiler

Compiled 10 371 to 2 835 computations (72.7% saved)

regimes183.0ms (1.7%)

Memory

-11.7MiB live, 174.7MiB allocated; 13ms collecting garbage

Counts

98 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

29.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))))))))
28.0ms	theta
25.0ms	lambda1
24.0ms	phi2
23.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes181.0ms (1.7%)

Memory

23.5MiB live, 163.5MiB allocated; 10ms collecting garbage

Counts

96 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes251.0ms (2.3%)

Memory

-30.9MiB live, 159.1MiB allocated; 97ms collecting garbage

Counts

94 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

85.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))))))))
45.0ms	theta
25.0ms	lambda1
25.0ms	phi2
22.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes171.0ms (1.6%)

Memory

28.2MiB live, 167.4MiB allocated; 11ms collecting garbage

Counts

93 → 1

Calls

Call 1

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes165.0ms (1.5%)

Memory

11.8MiB live, 153.5MiB allocated; 9ms collecting garbage

Counts

91 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

30.0ms	phi1
24.0ms	theta
22.0ms	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
21.0ms	delta
21.0ms	lambda1

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes181.0ms (1.7%)

Memory

-6.8MiB live, 133.6MiB allocated; 9ms collecting garbage

Counts

82 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

39.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)))))))))
38.0ms	theta
25.0ms	phi2
19.0ms	delta
19.0ms	phi1

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes166.0ms (1.5%)

Memory

-9.0MiB live, 131.2MiB allocated; 10ms collecting garbage

Counts

75 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes108.0ms (1%)

Memory

-11.8MiB live, 80.9MiB allocated; 3ms collecting garbage

Counts

44 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

24.0ms	phi2
11.0ms	phi1
11.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)))))))))
11.0ms	theta
11.0ms	delta

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes85.0ms (0.8%)

Memory

22.4MiB live, 68.6MiB allocated; 2ms collecting garbage

Counts

40 → 2

Calls

Call 1

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

Outputs

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

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
91.3%	1	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
91.3%	1	`lambda1`
91.3%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
93.4%	2	`phi1`
91.3%	1	`phi2`
94.5%	3	`delta`
91.3%	1	`theta`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes12.0ms (0.1%)

Memory

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

Counts

37 → 2

Calls

Call 1

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

Outputs

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

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

Calls

1 calls:

9.0ms

phi1

Results

Accuracy	Segments	Branch
93.1%	2	`phi1`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes33.0ms (0.3%)

Memory

-19.2MiB live, 30.4MiB allocated; 15ms collecting garbage

Counts

29 → 1

Calls

Call 1

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

Outputs

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

Calls

3 calls:

16.0ms	delta
7.0ms	phi2
7.0ms	phi1

Results

Accuracy	Segments	Branch
91.3%	1	`phi2`
91.3%	1	`delta`
91.3%	1	`phi1`

Compiler

Compiled 3 to 15 computations (-400% saved)

regimes39.0ms (0.4%)

Memory

1.9MiB live, 48.3MiB allocated; 2ms collecting garbage

Counts

19 → 2

Calls

Call 1

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

Outputs

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes15.0ms (0.1%)

Memory

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

Counts

16 → 1

Calls

Call 1

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

Outputs

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

Calls

3 calls:

5.0ms

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

5.0ms

phi1

4.0ms

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

Results

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

Compiler

Compiled 65 to 50 computations (23.1% saved)

regimes20.0ms (0.2%)

Memory

-18.8MiB live, 27.7MiB allocated; 1ms collecting garbage

Counts

7 → 2

Calls

Call 1

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

Outputs

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

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
84.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))))))))`
84.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)))))))))`
84.8%	1	`lambda1`
86.4%	2	`delta`
84.8%	1	`theta`
84.8%	1	`phi2`
84.8%	1	`phi1`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes17.0ms (0.2%)

Memory

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

Counts

6 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
83.3%	2	`phi2`
87.0%	3	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
81.1%	1	`phi1`
87.3%	3	`theta`
86.7%	3	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
81.1%	1	`lambda1`
87.4%	3	`delta`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes3.0ms (0%)

Memory

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

Counts

5 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

2.0ms

delta

Results

Accuracy	Segments	Branch
87.4%	3	`delta`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes11.0ms (0.1%)

Memory

-29.8MiB live, 17.0MiB allocated; 2ms collecting garbage

Counts

2 → 1

Calls

Call 1

Inputs

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

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes8.0ms (0.1%)

Memory

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

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

bsearch21.0ms (0.2%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	predicate-same

Steps

Time	Left	Right
19.0ms	1116854.9914553342	1.8272783314917723e+20

Samples

16.0ms

64×

valid

Compiler

Compiled 364 to 287 computations (21.2% saved)

Precisions

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

ival-sin: 5.0ms (35.5% of total)

ival-cos: 4.0ms (28.4% of total)

ival-mult: 2.0ms (14.2% of total)

ival-add: 1.0ms (7.1% of total)

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

adjust: 0.0ms (0% of total)

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

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

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

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

bsearch67.0ms (0.6%)

Memory

-13.3MiB live, 34.8MiB allocated; 5ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
63.0ms	1116854.9914553342	1.8272783314917723e+20

Samples

58.0ms

128×

valid

Compiler

Compiled 776 to 601 computations (22.6% saved)

Precisions

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

ival-cos: 34.0ms (63.8% of total)

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

ival-mult: 4.0ms (7.5% of total)

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

ival-add: 1.0ms (1.9% of total)

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

ival-sub: 1.0ms (1.9% of total)

adjust: 0.0ms (0% of total)

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

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

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	2.714891526820814	2.9076179562491524

Compiler

Compiled 36 to 31 computations (13.9% saved)

bsearch53.0ms (0.5%)

Memory

-4.3MiB live, 41.7MiB allocated; 3ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
50.0ms	-7.005716715618934e+240	-7.527149800393317e+232

Samples

37.0ms

144×

valid

Compiler

Compiled 1 872 to 823 computations (56% saved)

Precisions

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

ival-sin: 12.0ms (38% of total)

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

ival-mult: 5.0ms (15.8% of total)

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

ival-add: 1.0ms (3.2% of total)

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

ival-sub: 1.0ms (3.2% of total)

adjust: 0.0ms (0% of total)

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

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

bsearch138.0ms (1.3%)

Memory

-2.6MiB live, 86.1MiB allocated; 9ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
60.0ms	4.758214080951075e-7	0.00028805309434367954
71.0ms	-3.6701113807565525e+60	-1.2075652612678568e+52

Samples

119.0ms

272×

valid

Compiler

Compiled 3 321 to 1 394 computations (58% saved)

Precisions

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

ival-cos: 70.0ms (63.8% of total)

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

ival-mult: 9.0ms (8.2% of total)

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

ival-add: 2.0ms (1.8% of total)

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

ival-sub: 1.0ms (0.9% of total)

adjust: 0.0ms (0% of total)

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

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

bsearch27.0ms (0.2%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	4.758214080951075e-7	0.00028805309434367954
24.0ms	-1.3544194200149782e+61	-3.6701113807565525e+60

Samples

20.0ms

80×

valid

Compiler

Compiled 2 493 to 1 032 computations (58.6% saved)

Precisions

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

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

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

ival-mult: 3.0ms (17.4% of total)

ival-add: 1.0ms (5.8% of total)

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

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

adjust: 0.0ms (0% of total)

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

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

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

simplify62.0ms (0.6%)

Memory

-0.6MiB live, 48.3MiB allocated; 15ms collecting garbage

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	204	1918
1	313	1892
2	593	1879
3	2014	1879

Stop Event

1×	node limit

Calls

Call 1

Inputs
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.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 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.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 (sin.f64 phi1) #s(literal 3 binary64)))) #s(approx (+ ( (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.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 (sin.f64 phi1) #s(literal 3 binary64)))) #s(approx (+ ( (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(if (<=.f64 phi1 #s(literal 2000000 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))))))
(if (<=.f64 phi1 #s(literal 76000000000 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
(if (<=.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 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))) #s(literal 3152519739159347/1125899906842624 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 (.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 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))))
(if (<=.f64 delta #s(literal -5399999999999999857846384454713045255993759055528919296206970811563917670160675929951840102426452665181053716903796991163517684635381493216770253193355594054181482564544672519781859463859079617827075424214803742282949301725145319012827136 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(approx (cos delta) #s(literal 1 binary64))))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 (.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)))))))))
(if (<=.f64 delta #s(literal -1599999999999999989153517878978604762338733507110502400 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #s(approx (sin theta) (.f64 theta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 theta theta))))))) #s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta)))) (if (<=.f64 delta #s(literal 1152921504606847/4611686018427387904 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #s(approx (sin theta) theta))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))))))
(if (<=.f64 delta #s(literal -3800000000000000093120652670073247906119044931749985554268160 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #s(approx (sin theta) theta))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta)))) (if (<=.f64 delta #s(literal 1152921504606847/4611686018427387904 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #s(approx (sin theta) theta))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

Outputs
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.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 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.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 (sin.f64 phi1) #s(literal 3 binary64)))) #s(approx (+ ( (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (.f64 (pow.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 (sin.f64 phi1) #s(literal 3 binary64)))) #s(approx (+ ( (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (fma.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(if (<=.f64 phi1 #s(literal 2000000 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 delta delta)))) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (sin.f64 (+.f64 phi1 delta))))))))
(if (<=.f64 phi1 #s(literal 76000000000 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
(if (<=.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 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))) #s(literal 3152519739159347/1125899906842624 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 (.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 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))))
(if (<=.f64 delta #s(literal -5399999999999999857846384454713045255993759055528919296206970811563917670160675929951840102426452665181053716903796991163517684635381493216770253193355594054181482564544672519781859463859079617827075424214803742282949301725145319012827136 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(approx (cos delta) #s(literal 1 binary64))))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(approx (cos delta) (+.f64 #s(literal 1 binary64) (.f64 (.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)))))))))
(if (<=.f64 delta #s(literal -1599999999999999989153517878978604762338733507110502400 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #s(approx (sin theta) (.f64 theta (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 theta theta))))))) #s(approx (/ (- (pow (cos delta) 3) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta)))) (if (<=.f64 delta #s(literal 1152921504606847/4611686018427387904 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #s(approx (sin theta) theta))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))))))
(if (<=.f64 delta #s(literal -3800000000000000093120652670073247906119044931749985554268160 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #s(approx (sin theta) theta))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta)))) (if (<=.f64 delta #s(literal 1152921504606847/4611686018427387904 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #s(approx (sin theta) theta))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))))))
(if (or (<=.f64 delta #s(literal -3800000000000000093120652670073247906119044931749985554268160 binary64)) (not (<=.f64 delta #s(literal 1152921504606847/4611686018427387904 binary64)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) #s(approx (sin theta) theta))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(approx (* (sin delta) (sin theta)) (.f64 delta (sin.f64 theta)))) #s(approx (/ (- (pow (cos delta) 3) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 3)) (+ (* (cos delta) (cos delta)) (+ (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2) (* (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (cos.f64 delta))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1)

derivations371.0ms (3.4%)

Memory

-21.6MiB live, 216.3MiB allocated; 26ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 1 918 to 209 computations (89.1% saved)

preprocess139.0ms (1.3%)

Memory: -22.3MiB live, 128.0MiB allocated; 24ms collecting garbage
Remove: (abs phi2)
Compiler: Compiled 4 062 to 526 computations (87.1% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze2.1s (19.4%)

sample2.9s (26.3%)

explain379.0ms (3.5%)

preprocess192.0ms (1.8%)

eval0.0ms (0%)

prune1.0ms (0%)

series58.0ms (0.5%)

rewrite255.0ms (2.3%)

eval67.0ms (0.6%)

prune23.0ms (0.2%)

series152.0ms (1.4%)

rewrite305.0ms (2.8%)

eval271.0ms (2.5%)

prune90.0ms (0.8%)

series113.0ms (1%)

rewrite265.0ms (2.4%)

eval275.0ms (2.5%)

prune104.0ms (1%)

series123.0ms (1.1%)

rewrite271.0ms (2.5%)

eval292.0ms (2.7%)

prune165.0ms (1.5%)

regimes183.0ms (1.7%)

regimes181.0ms (1.7%)

regimes251.0ms (2.3%)

regimes171.0ms (1.6%)

regimes165.0ms (1.5%)

regimes181.0ms (1.7%)

regimes166.0ms (1.5%)

regimes108.0ms (1%)

regimes85.0ms (0.8%)

regimes12.0ms (0.1%)

regimes33.0ms (0.3%)

regimes39.0ms (0.4%)

regimes15.0ms (0.1%)

regimes20.0ms (0.2%)

regimes17.0ms (0.2%)

regimes3.0ms (0%)

regimes11.0ms (0.1%)

regimes8.0ms (0.1%)

bsearch21.0ms (0.2%)

bsearch67.0ms (0.6%)

bsearch1.0ms (0%)

bsearch53.0ms (0.5%)

bsearch138.0ms (1.3%)

bsearch27.0ms (0.2%)

simplify62.0ms (0.6%)

derivations371.0ms (3.4%)

preprocess139.0ms (1.3%)

end0.0ms (0%)

Profiling