Metrics for Destination given bearing on a great circle

start0.0ms (0%)

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

analyze1.4s (12.7%)

Memory

-73.3MiB live, 1 502.6MiB allocated; 477ms collecting garbage

Algorithm

1×

Search

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

Compiler

Compiled 35 to 25 computations (28.6% saved)

sample3.7s (32.9%)

Memory

115.1MiB live, 4 733.2MiB allocated; 1.7s collecting garbage

Samples

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

Precisions

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

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

ival-cos: 546.0ms (23.7% of total)

ival-mult: 409.0ms (17.8% of total)

ival-atan2: 159.0ms (6.9% of total)

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

ival-add: 87.0ms (3.8% of total)

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

adjust: 3.0ms (0.1% of total)

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

Bogosity

explain503.0ms (4.5%)

Memory

13.4MiB live, 903.5MiB allocated; 148ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Example	Underpredictions	Example	Subexpression
6	-	2	(-1.0889107790547406e-79 1.6021093154718175e+237 3.0642729287293543e+207 -2.6085328462703812e-298 4.797529259193694e-127)	`(-.f64 (cos.f64 delta) (.f64 (sin.f64 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	-	1	(-4.8587380949825157e-129 -3.0055255883970725e+266 1.1889786835549778e-163 7.90809069665397e-13 8.403337350076923e-256)	`(asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))`
0	-	0	-	`(cos.f64 theta)`
0	-	0	-	`theta`
0	-	0	-	`(sin.f64 theta)`
0	-	0	-	`(.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))`
0	-	0	-	`(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))`
0	-	0	-	`delta`
0	-	0	-	`(sin.f64 phi1)`
0	-	0	-	`(*.f64 (sin.f64 phi1) (cos.f64 delta))`
0	-	0	-	`lambda1`
0	-	0	-	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
0	-	0	-	`(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))`
0	-	0	-	`(*.f64 (sin.f64 theta) (sin.f64 delta))`
0	-	0	-	`phi1`
0	-	0	-	`(*.f64 (cos.f64 phi1) (sin.f64 delta))`
0	-	0	-	`(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))`
0	-	0	-	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
0	-	0	-	`(sin.f64 delta)`
0	-	0	-	`(sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))`
0	-	0	-	`(cos.f64 delta)`
0	-	0	-	`(cos.f64 phi1)`

Explanations

Click to see full explanations table

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

Confusion

	Predicted +	Predicted -
+	2	2
-	0	252

Precision

1.0

Recall

0.5

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	2	2	0
-	0	2	250

Precision?

0.6666666666666666

Recall?

1.0

Freqs

test

number	freq
0	254
1	2

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

154.0ms

512×

valid

Compiler

Compiled 431 to 73 computations (83.1% saved)

Precisions

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

ival-sin: 50.0ms (40.1% of total)

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

ival-mult: 21.0ms (16.8% of total)

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

ival-atan2: 7.0ms (5.6% of total)

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

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

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

adjust: 0.0ms (0% of total)

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

preprocess204.0ms (1.8%)

Memory

-1.0MiB live, 251.7MiB allocated; 57ms 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.1MiB live, 0.2MiB allocated; 0ms collecting garbage
Compiler: Compiled 0 to 5 computations (-∞% saved)

prune1.0ms (0%)

Memory

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

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	99.6%	(+.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.6%

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

series61.0ms (0.5%)

Memory

-8.7MiB live, 113.5MiB allocated; 28ms 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
14.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))
6.0ms	phi1	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)) (* (cos phi1) (sin delta)) (cos theta))
5.0ms	theta	@	0	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)) (* (cos phi1) (sin delta)) (cos theta))
4.0ms	phi1	@	-inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)) (* (cos phi1) (sin delta)) (cos theta))
4.0ms	delta	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin theta) theta (sin delta) delta (cos phi1) phi1 (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))) (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))) (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)) (* (cos phi1) (sin delta)) (cos theta))

rewrite205.0ms (1.8%)

Memory

16.0MiB live, 295.2MiB allocated; 58ms 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))

eval55.0ms (0.5%)

Memory: 12.5MiB live, 156.1MiB allocated; 18ms collecting garbage
Compiler: Compiled 12 738 to 1 974 computations (84.5% saved)

prune32.0ms (0.3%)

Memory

2.7MiB live, 96.4MiB allocated; 3ms collecting garbage

Pruning

24 alts after pruning (24 fresh and 0 done)

	Pruned	Kept	Total
New	263	24	287
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	264	24	288

Accuracy

99.8%

Counts

288 → 24

Alt Table

Click to see full alt table

Status	Accuracy	Program
	67.6%	(/.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))))))
	50.7%	(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))))
	99.6%	(+.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)
	99.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (fma.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))))
▶	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))
▶	99.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	99.6%	(+.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))))))))
▶	99.6%	(+.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) (fma.f64 (sin.f64 delta) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 delta) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	85.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta) (sin.f64 phi1)))))))
	80.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 (cos.f64 theta) (sin.f64 delta) (*.f64 (cos.f64 delta) phi1)))))))
▶	86.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ ( (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	92.7%	(+.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)))))))
	92.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)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	77.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #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)))))
	73.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)))))
	83.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (.f64 phi1 (cos.f64 theta)) (sin.f64 delta))))))
	80.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	88.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))))
	77.3%	(+.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)))))))))
	73.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 theta (cos.f64 phi1)) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
	34.6%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))))
	99.6%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (.f64 (+.f64 (/.f64 (atan2.f64 (.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))
▶	66.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 2 306 to 1 402 computations (39.2% saved)

series135.0ms (1.2%)

Memory

11.1MiB live, 259.9MiB allocated; 37ms collecting garbage

Counts

52 → 366

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

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

Calls

15 calls:

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

rewrite221.0ms (2%)

Memory

-27.4MiB live, 344.5MiB allocated; 29ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1418	18995
0	1523	17371
0	8267	16490

Stop Event

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

Counts

418 → 528

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

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

eval176.0ms (1.6%)

Memory: 33.3MiB live, 325.3MiB allocated; 35ms collecting garbage
Compiler: Compiled 66 008 to 5 265 computations (92% saved)

prune89.0ms (0.8%)

Memory

13.6MiB live, 197.2MiB allocated; 18ms collecting garbage

Pruning

44 alts after pruning (41 fresh and 3 done)

	Pruned	Kept	Total
New	1 032	35	1 067
Fresh	13	6	19
Picked	2	3	5
Done	0	0	0
Total	1 047	44	1 091

Accuracy

99.8%

Counts

1 091 → 44

Alt Table

Click to see full alt table

Status	Accuracy	Program
	67.6%	(/.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))))))
	50.7%	(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))))
▶	99.6%	(+.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.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 2 binary64)))) (+.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64)) (-.f64 (.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64))) (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))
▶	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64))) #s(approx (+ (cos delta) ( (+ (* (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) (.f64 (cos.f64 theta) (sin.f64 delta)))) (cos.f64 delta))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (+.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))
	88.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 #s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))
	85.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 #s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 (cos.f64 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.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64)) (-.f64 (.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64))) (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))))) (.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)))))))
✓	99.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	80.0%	(+.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 #s(approx (sin phi1) phi1) (cos.f64 delta)))))))
	82.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
▶	80.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	85.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	92.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	99.6%	(+.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))))))))
▶	85.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 delta (cos.f64 phi1)) (cos.f64 theta) (sin.f64 phi1)))))))
	80.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (fma.f64 (cos.f64 theta) (sin.f64 delta) (*.f64 phi1 (cos.f64 delta))))))))
	95.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (* (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))))))))
✓	86.8%	(+.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)))))))
	86.8%	(+.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 theta) (sin delta)) (sin.f64 delta)))))))
	81.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (sin phi1) (.f64 phi1 (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64))) #s(literal 1/6 binary64)) #s(literal 1 binary64)))) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	79.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (sin phi1) (.f64 phi1 (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) #s(literal 1 binary64)))) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	81.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (sin phi1) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)))) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	79.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (sin phi1) phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	92.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)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	73.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (.f64 phi1 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 phi1 (cos.f64 delta))))))))
	79.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (fma.f64 delta (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
	80.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
▶	88.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	80.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	74.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	70.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))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	73.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 theta (cos.f64 phi1)) (sin.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)))))))
	77.3%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 delta (cos.f64 phi1)) (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)))))))
	85.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	84.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	34.6%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))) (cos.f64 delta)))))
	34.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 (.f64 (cos.f64 phi1) (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.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))))))) (.f64 lambda1 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))) lambda1) #s(literal 1 binary64))))
	34.6%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))))
✓	66.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 4 696 to 2 696 computations (42.6% saved)

series112.0ms (1%)

Memory

4.8MiB live, 195.1MiB allocated; 16ms collecting garbage

Counts

67 → 394

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

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

Calls

15 calls:

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

rewrite271.0ms (2.4%)

Memory

-8.7MiB live, 217.6MiB allocated; 25ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1450	18339
0	1575	17462
0	8118	16646

Stop Event

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

Counts

461 → 608

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

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

eval261.0ms (2.4%)

Memory: 17.3MiB live, 486.8MiB allocated; 93ms collecting garbage
Compiler: Compiled 83 143 to 5 890 computations (92.9% saved)

prune102.0ms (0.9%)

Memory

22.4MiB live, 304.8MiB allocated; 15ms collecting garbage

Pruning

58 alts after pruning (54 fresh and 4 done)

	Pruned	Kept	Total
New	1 136	32	1 168
Fresh	14	22	36
Picked	4	1	5
Done	0	3	3
Total	1 154	58	1 212

Accuracy

99.9%

Counts

1 212 → 58

Alt Table

Click to see full alt table

Status	Accuracy	Program
	67.6%	(/.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))))))
	50.7%	(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))))
	99.6%	(+.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 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) #s(literal 0 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) #s(literal 1 binary64))) (.f64 (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (.f64 (cos.f64 phi1) #s(literal 1 binary64)))))) (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.6%	(+.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) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))
	85.3%	(+.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) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (*.f64 delta (cos.f64 phi1)) (cos.f64 theta) (sin.f64 phi1)))))))
	80.6%	(+.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)))))) #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))))))
	86.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	99.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (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 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (cos.f64 delta))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64)) (-.f64 (.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64))) (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))
▶	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) #s(literal 2 binary64)) (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 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (cos.f64 delta))))))
	88.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 #s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) #s(approx (+ (cos delta) (* (+ (* (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) (.f64 (cos.f64 theta) (sin.f64 delta)))) (cos.f64 delta))))))
▶	85.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 #s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(approx (+ (cos delta) (* (+ (* (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) (.f64 (cos.f64 theta) (sin.f64 delta)))) (cos.f64 delta))))))
	86.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64)) (-.f64 (.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64))) (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))))) (.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)))))))
✓	99.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	82.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	68.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 #s(approx (sin phi1) (.f64 phi1 (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) #s(literal 1 binary64)))) (cos.f64 delta)))))))
	80.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 #s(approx (sin phi1) phi1) (cos.f64 delta)))))))
	92.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) (- (* 1/24 (* phi1 phi1)) 1/2)) 1) #s(literal 1 binary64))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	81.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	99.6%	(+.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))))))))
	80.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (fma.f64 (cos.f64 theta) (sin.f64 delta) (*.f64 phi1 (cos.f64 delta))))))))
	95.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (* (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))))))))
	84.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (fma.f64 #s(approx (* delta (cos phi1)) delta) (cos.f64 theta) (sin.f64 phi1)))))))
	85.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))) #s(approx (+ (* (* delta (cos phi1)) (cos theta)) (sin phi1)) (fma.f64 delta (cos.f64 phi1) (sin.f64 phi1))))))))
✓	86.8%	(+.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)))))))
	86.8%	(+.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 theta) (sin delta)) (sin.f64 delta)))))))
	81.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (sin phi1) (.f64 phi1 (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64))) #s(literal 1/6 binary64)) #s(literal 1 binary64)))) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	79.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (sin phi1) (.f64 phi1 (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) #s(literal 1 binary64)))) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	78.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (sin phi1) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)))) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	82.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (sin phi1) phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	92.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)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	73.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (.f64 phi1 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 phi1 (cos.f64 delta))))))))
	79.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (fma.f64 delta (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
	80.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	75.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))))))
✓	88.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	76.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(approx (cos delta) (fma.f64 #s(literal -1/2 binary64) (*.f64 delta delta) #s(literal 1 binary64))))))
	75.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(approx (cos delta) #s(literal 1 binary64)))))
	80.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	74.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	74.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
▶	65.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 delta (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64))))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	70.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 delta (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64))))) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	71.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 #s(approx (sin theta) theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	71.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 (.f64 theta (cos.f64 phi1)) (sin.f64 delta))) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	77.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 (.f64 delta (cos.f64 phi1)) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 delta (cos.f64 phi1)) (cos.f64 theta) (sin.f64 phi1)))))))
	71.6%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 (.f64 delta (cos.f64 phi1)) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
▶	85.6%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	73.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 theta (cos.f64 phi1)) (sin.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)))))))
	85.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
▶	84.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	34.6%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))
	34.6%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))) (cos.f64 delta)))))
	34.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 (.f64 (cos.f64 phi1) (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.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))))))) (.f64 lambda1 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 1 binary64))))
	34.6%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))))
✓	66.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 6 971 to 3 902 computations (44% saved)

series141.0ms (1.3%)

Memory

-12.4MiB live, 236.8MiB allocated; 101ms collecting garbage

Counts

70 → 408

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

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

Calls

15 calls:

Time	Variable		Point	Expression
50.0ms	phi1	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (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) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (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) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) (pow (cos delta) 2) (cos delta) 2 (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2)) (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (cos theta) (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta)) (sin phi1) (pow (sin phi1) 2) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (cos delta)) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (* (cos phi1) (* (cos theta) (sin delta))) (* (cos theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos 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)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos 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)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (* (sin delta) (sin theta)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (+ lambda1 (atan2 (* (* (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)) (- (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))))) (+ 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)))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin delta) (* delta (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1)) (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1) (* delta delta) (- (* 1/120 (* delta delta)) 1/6) (* 1/120 (* delta delta)) 1/120 1/6 1 (- (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 phi1) (+ (* (* phi1 phi1) (- (* 1/24 (* phi1 phi1)) 1/2)) 1) (* phi1 phi1) (- (* 1/24 (* phi1 phi1)) 1/2) (* 1/24 (* phi1 phi1)) 1/24 1/2 (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (- 1 (pow (sin phi1) 4)) (pow (sin phi1) 4) 4)
11.0ms	delta	@	-inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (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) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (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) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) (pow (cos delta) 2) (cos delta) 2 (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2)) (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (cos theta) (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta)) (sin phi1) (pow (sin phi1) 2) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (cos delta)) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (* (cos phi1) (* (cos theta) (sin delta))) (* (cos theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos 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)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos 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)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (* (sin delta) (sin theta)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (+ lambda1 (atan2 (* (* (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)) (- (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))))) (+ 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)))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin delta) (* delta (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1)) (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1) (* delta delta) (- (* 1/120 (* delta delta)) 1/6) (* 1/120 (* delta delta)) 1/120 1/6 1 (- (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 phi1) (+ (* (* phi1 phi1) (- (* 1/24 (* phi1 phi1)) 1/2)) 1) (* phi1 phi1) (- (* 1/24 (* phi1 phi1)) 1/2) (* 1/24 (* phi1 phi1)) 1/24 1/2 (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (- 1 (pow (sin phi1) 4)) (pow (sin phi1) 4) 4)
9.0ms	theta	@	-inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (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) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (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) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) (pow (cos delta) 2) (cos delta) 2 (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2)) (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (cos theta) (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta)) (sin phi1) (pow (sin phi1) 2) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (cos delta)) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (* (cos phi1) (* (cos theta) (sin delta))) (* (cos theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos 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)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos 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)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (* (sin delta) (sin theta)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (+ lambda1 (atan2 (* (* (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)) (- (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))))) (+ 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)))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin delta) (* delta (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1)) (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1) (* delta delta) (- (* 1/120 (* delta delta)) 1/6) (* 1/120 (* delta delta)) 1/120 1/6 1 (- (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 phi1) (+ (* (* phi1 phi1) (- (* 1/24 (* phi1 phi1)) 1/2)) 1) (* phi1 phi1) (- (* 1/24 (* phi1 phi1)) 1/2) (* 1/24 (* phi1 phi1)) 1/24 1/2 (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (- 1 (pow (sin phi1) 4)) (pow (sin phi1) 4) 4)
9.0ms	delta	@	inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (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) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (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) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) (pow (cos delta) 2) (cos delta) 2 (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2)) (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (cos theta) (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta)) (sin phi1) (pow (sin phi1) 2) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (cos delta)) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (* (cos phi1) (* (cos theta) (sin delta))) (* (cos theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos 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)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos 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)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (* (sin delta) (sin theta)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (+ lambda1 (atan2 (* (* (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)) (- (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))))) (+ 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)))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin delta) (* delta (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1)) (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1) (* delta delta) (- (* 1/120 (* delta delta)) 1/6) (* 1/120 (* delta delta)) 1/120 1/6 1 (- (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 phi1) (+ (* (* phi1 phi1) (- (* 1/24 (* phi1 phi1)) 1/2)) 1) (* phi1 phi1) (- (* 1/24 (* phi1 phi1)) 1/2) (* 1/24 (* phi1 phi1)) 1/24 1/2 (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (- 1 (pow (sin phi1) 4)) (pow (sin phi1) 4) 4)
9.0ms	phi1	@	-inf	((+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (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) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (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) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) (pow (cos delta) 2) (cos delta) 2 (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2)) (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (cos theta) (* (cos phi1) (sin delta)) (* (sin phi1) (cos delta)) (sin phi1) (pow (sin phi1) 2) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (cos delta)) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (* (cos phi1) (* (cos theta) (sin delta))) (* (cos theta) (sin delta)) (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos 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)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos 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)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (* (sin delta) (sin theta)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (+ lambda1 (atan2 (* (* (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)) (- (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))))) (+ 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)))))) (* (* (sin theta) (sin delta)) (cos phi1)) (* (sin theta) (sin delta)) (sin delta) (* delta (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1)) (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1) (* delta delta) (- (* 1/120 (* delta delta)) 1/6) (* 1/120 (* delta delta)) 1/120 1/6 1 (- (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 phi1) (+ (* (* phi1 phi1) (- (* 1/24 (* phi1 phi1)) 1/2)) 1) (* phi1 phi1) (- (* 1/24 (* phi1 phi1)) 1/2) (* 1/24 (* phi1 phi1)) 1/24 1/2 (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (- 1 (pow (sin phi1) 4)) (pow (sin phi1) 4) 4)

rewrite262.0ms (2.4%)

Memory

-8.0MiB live, 443.2MiB allocated; 90ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1503	22920
0	1609	21569
0	8374	20651

Stop Event

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

Counts

478 → 622

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 2 binary64)) (.f64 (pow.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) #s(literal 2 binary64)) (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 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (cos.f64 delta))))))
lambda1
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) #s(literal 2 binary64)) (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 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (cos.f64 delta)))))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(sin.f64 theta)
theta
(sin.f64 delta)
delta
(cos.f64 phi1)
phi1
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) #s(literal 2 binary64)) (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 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (cos.f64 delta))))
(-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(pow.f64 (cos.f64 delta) #s(literal 2 binary64))
(cos.f64 delta)
#s(literal 2 binary64)
(.f64 (pow.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(pow.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) #s(literal 2 binary64))
(fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(cos.f64 theta)
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(*.f64 (sin.f64 phi1) (cos.f64 delta))
(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 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (cos.f64 delta)))
(fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (cos.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 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
(atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta)))
#s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(*.f64 (sin.f64 delta) (sin.f64 theta))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 #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))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(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))))) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#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))))) (*.f64 (cos.f64 theta) (sin.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))))
#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) #s(approx (sin delta) (.f64 delta (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64))))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 delta (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64))))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (cos.f64 delta))))))
(.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 delta (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64))))) (cos.f64 phi1))
(.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 delta (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (*.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64)))))
#s(approx (sin delta) (.f64 delta (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64))))
(.f64 delta (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64)))
(fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (*.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64))
(*.f64 delta delta)
(-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64))
(.f64 #s(literal 1/120 binary64) (.f64 delta delta))
#s(literal 1/120 binary64)
#s(literal 1/6 binary64)
#s(literal 1 binary64)
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (cos.f64 delta))))
(fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))
#s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))
(*.f64 phi1 phi1)
(-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64))
(.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1))
#s(literal 1/24 binary64)
#s(literal 1/2 binary64)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 #s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(approx (+ (cos delta) (* (+ (* (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) (.f64 (cos.f64 theta) (sin.f64 delta)))) (cos.f64 delta))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 #s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(approx (+ (cos delta) (* (+ (* (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) (.f64 (cos.f64 theta) (sin.f64 delta)))) (cos.f64 delta)))))
(/.f64 #s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(approx (+ (cos delta) (* (+ (* (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) (.f64 (cos.f64 theta) (sin.f64 delta)))) (cos.f64 delta))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
(-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))
(pow.f64 (sin.f64 phi1) #s(literal 4 binary64))
#s(literal 4 binary64)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx lambda1 #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (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 (* (sin delta) (* (sin theta) (+ (* (cos phi1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi1))))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (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 (* (sin delta) (* (sin theta) (+ (* (cos phi1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi1))))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (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) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (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)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (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 (* (sin delta) (* (sin theta) (+ (* (cos phi1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi1))))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (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) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (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 (* (sin delta) (* (sin theta) (+ (* (cos phi1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi1))))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)) 1)))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (* (* (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) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (cos delta)))
#s(approx (/ (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) #s(hole binary64 (pow (cos delta) 2)))
#s(approx (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (pow (cos delta) 2))))
#s(approx (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) #s(hole binary64 (+ (* (pow phi1 2) (- (* -2 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (pow (cos delta) 2))))
#s(approx (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) #s(hole binary64 (+ (* (pow phi1 2) (- (* phi1 (- (* -1 (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))) (* 2 (* (cos delta) (* (cos theta) (sin delta)))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (pow (cos delta) 2))))
#s(approx (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow phi1 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))
#s(approx (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow phi1 2) (+ (* 2 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
#s(approx (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow phi1 2) (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2)))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
#s(approx (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (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 (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) #s(hole binary64 (* (pow (cos theta) 2) (pow (sin delta) 2))))
#s(approx (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) #s(hole binary64 (+ (* 2 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))))
#s(approx (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) #s(hole binary64 (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))))
#s(approx (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) #s(hole binary64 (+ (* phi1 (+ (* 2 (* (cos delta) (* (cos theta) (sin delta)))) (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* phi1 (+ (* -1 (* (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 theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* -1/2 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* phi1 (cos delta))))))) (* (cos theta) (sin delta)))))
#s(approx (* (cos 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 phi1) (cos delta)) #s(hole binary64 (* phi1 (cos delta))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (* phi1 (+ (cos delta) (* -1/6 (* (pow phi1 2) (cos delta)))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (* phi1 (+ (cos delta) (* (pow phi1 2) (+ (* -1/6 (cos delta)) (* 1/120 (* (pow phi1 2) (cos delta)))))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (* phi1 (+ (cos delta) (* (pow phi1 2) (+ (* -1/6 (cos delta)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (cos delta))) (* 1/120 (cos delta))))))))))
#s(approx (sin phi1) #s(hole binary64 phi1))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow phi1 2)))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (cos delta)))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* phi1 (* (cos theta) (sin delta))))))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (cos delta)) #s(hole binary64 (cos delta)))
#s(approx (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (cos delta)) #s(hole binary64 (+ (cos delta) (* phi1 (* (cos theta) (sin delta))))))
#s(approx (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (cos delta)) #s(hole binary64 (+ (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (cos delta)) #s(hole binary64 (+ (cos delta) (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta)))))))
#s(approx (+ (* (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 (atan2 (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (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 (* (sin delta) (* (sin theta) (+ (* (cos phi1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi1))))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin delta) (* (sin theta) (sin (* 1/2 (PI)))))))
#s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (* (cos (* 1/2 (PI))) (* (sin delta) (sin theta)))) (* (sin delta) (* (sin theta) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* phi1 (* (sin delta) (* (sin theta) (sin (* 1/2 (PI))))))) (* (cos (* 1/2 (PI))) (* (sin delta) (sin theta))))) (* (sin delta) (* (sin theta) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (sin delta) (* (sin theta) (sin (* 1/2 (PI)))))) (* -1/6 (* phi1 (* (cos (* 1/2 (PI))) (* (sin delta) (sin theta))))))) (* (cos (* 1/2 (PI))) (* (sin delta) (sin theta))))) (* (sin delta) (* (sin theta) (sin (* 1/2 (PI))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (cos delta)))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))))
#s(approx (atan2 (* (* (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 (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 (+ (* (* phi1 phi1) (- (* 1/24 (* phi1 phi1)) 1/2)) 1) #s(hole binary64 1))
#s(approx (+ (* (* phi1 phi1) (- (* 1/24 (* phi1 phi1)) 1/2)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (+ (* (* phi1 phi1) (- (* 1/24 (* phi1 phi1)) 1/2)) 1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))))
#s(approx (* phi1 phi1) #s(hole binary64 (pow phi1 2)))
#s(approx (- (* 1/24 (* phi1 phi1)) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* 1/24 (* phi1 phi1)) 1/2) #s(hole binary64 (- (* 1/24 (pow phi1 2)) 1/2)))
#s(approx (* 1/24 (* phi1 phi1)) #s(hole binary64 (* 1/24 (pow phi1 2))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) #s(hole binary64 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (pow (cos delta) 2)))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (pow (cos delta) 2))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (* -2 (* phi1 (* (cos delta) (* (cos theta) (sin delta))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (pow (cos delta) 2))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (* phi1 (- (* -1 (* phi1 (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* -1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))) (pow (cos delta) 2))))) (* 2 (* (cos delta) (* (cos theta) (sin delta)))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (pow (cos delta) 2))))
#s(approx (- 1 (pow (sin phi1) 4)) #s(hole binary64 1))
#s(approx (- 1 (pow (sin phi1) 4)) #s(hole binary64 (+ 1 (* -1 (pow phi1 4)))))
#s(approx (- 1 (pow (sin phi1) 4)) #s(hole binary64 (+ 1 (* (pow phi1 4) (- (* 2/3 (pow phi1 2)) 1)))))
#s(approx (- 1 (pow (sin phi1) 4)) #s(hole binary64 (+ 1 (* (pow phi1 4) (- (* (pow phi1 2) (+ 2/3 (* -1/5 (pow phi1 2)))) 1)))))
#s(approx (pow (sin phi1) 4) #s(hole binary64 (pow phi1 4)))
#s(approx (pow (sin phi1) 4) #s(hole binary64 (* (pow phi1 4) (+ 1 (* -2/3 (pow phi1 2))))))
#s(approx (pow (sin phi1) 4) #s(hole binary64 (* (pow phi1 4) (+ 1 (* (pow phi1 2) (- (* 1/5 (pow phi1 2)) 2/3))))))
#s(approx (pow (sin phi1) 4) #s(hole binary64 (* (pow phi1 4) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/5 (* -34/945 (pow phi1 2)))) 2/3))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (sin delta) (sin theta)))))
#s(approx (cos phi1) #s(hole binary64 (cos phi1)))
#s(approx (/ (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
#s(approx (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) #s(hole binary64 (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)))))
#s(approx (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))))
#s(approx (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) #s(hole binary64 (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
#s(approx (* (cos phi1) (sin delta)) #s(hole binary64 (* (cos phi1) (sin delta))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (* (cos delta) (sin phi1))))
#s(approx (sin phi1) #s(hole binary64 (sin phi1)))
#s(approx (pow (sin phi1) 2) #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 (+ (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))))) (cos delta)) #s(hole binary64 (+ (cos delta) (* (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 theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin delta) (* (sin theta) (+ (* (cos phi1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi1)))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2))) (+ (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 (- (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 (+ (* (* phi1 phi1) (- (* 1/24 (* phi1 phi1)) 1/2)) 1) #s(hole binary64 (* 1/24 (pow phi1 4))))
#s(approx (+ (* (* phi1 phi1) (- (* 1/24 (* phi1 phi1)) 1/2)) 1) #s(hole binary64 (* (pow phi1 4) (- 1/24 (* 1/2 (/ 1 (pow phi1 2)))))))
#s(approx (+ (* (* phi1 phi1) (- (* 1/24 (* phi1 phi1)) 1/2)) 1) #s(hole binary64 (* (pow phi1 4) (- (+ 1/24 (/ 1 (pow phi1 4))) (* 1/2 (/ 1 (pow phi1 2)))))))
#s(approx (- (* 1/24 (* phi1 phi1)) 1/2) #s(hole binary64 (* 1/24 (pow phi1 2))))
#s(approx (- (* 1/24 (* phi1 phi1)) 1/2) #s(hole binary64 (* (pow phi1 2) (- 1/24 (* 1/2 (/ 1 (pow phi1 2)))))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) 2)))))
#s(approx (- 1 (pow (sin phi1) 4)) #s(hole binary64 (- 1 (pow (sin phi1) 4))))
#s(approx (pow (sin phi1) 4) #s(hole binary64 (pow (sin phi1) 4)))
#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) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (/ (- 1 (pow (sin phi1) 4)) (+ 1 (pow (sin phi1) 2)))))
#s(approx (/ (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* delta (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))) (/ 1 (+ 1 (pow (sin phi1) 2)))) (/ (pow (sin phi1) 4) (+ 1 (pow (sin phi1) 2))))))
#s(approx (/ (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* delta (- (+ (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (* delta (- (* -1 (/ (+ 1 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ 1 (pow (sin phi1) 2)))) (+ (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (+ 1 (pow (sin phi1) 2))) (/ (* (- 1 (pow (sin phi1) 4)) (- (* -1/2 (pow (sin phi1) 2)) 1/2)) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))) (/ 1 (+ 1 (pow (sin phi1) 2)))) (/ (pow (sin phi1) 4) (+ 1 (pow (sin phi1) 2))))))
#s(approx (/ (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* delta (- (+ (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (* delta (- (+ (* -1 (/ (+ 1 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ 1 (pow (sin phi1) 2)))) (* delta (- (* -1 (/ (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ 1 (pow (sin phi1) 2)))) (+ (* -1/6 (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2))) (+ (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- (* -1 (/ (+ 1 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ 1 (pow (sin phi1) 2)))) (+ (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (+ 1 (pow (sin phi1) 2))) (/ (* (- 1 (pow (sin phi1) 4)) (- (* -1/2 (pow (sin phi1) 2)) 1/2)) (pow (+ 1 (pow (sin phi1) 2)) 2))))))) (+ 1 (pow (sin phi1) 2))) (/ (* (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2))) (- (* -1/2 (pow (sin phi1) 2)) 1/2)) (+ 1 (pow (sin phi1) 2)))))))) (+ (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (+ 1 (pow (sin phi1) 2))) (/ (* (- 1 (pow (sin phi1) 4)) (- (* -1/2 (pow (sin phi1) 2)) 1/2)) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))) (/ 1 (+ 1 (pow (sin phi1) 2)))) (/ (pow (sin phi1) 4) (+ 1 (pow (sin phi1) 2))))))
#s(approx (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) #s(hole binary64 (- 1 (pow (sin phi1) 4))))
#s(approx (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) #s(hole binary64 (- (+ 1 (* -2 (* delta (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))))) (pow (sin phi1) 4))))
#s(approx (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))))))) (pow (sin phi1) 4))))
#s(approx (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* -1 (* delta (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (+ 1 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))))))) (pow (sin phi1) 4))))
#s(approx (pow (cos delta) 2) #s(hole binary64 1))
#s(approx (pow (cos delta) 2) #s(hole binary64 (+ 1 (* -1 (pow delta 2)))))
#s(approx (pow (cos delta) 2) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 1/3 (pow delta 2)) 1)))))
#s(approx (pow (cos delta) 2) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/3 (* -2/45 (pow delta 2)))) 1)))))
#s(approx (cos delta) #s(hole binary64 1))
#s(approx (cos delta) #s(hole binary64 (+ 1 (* -1/2 (pow delta 2)))))
#s(approx (cos delta) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2)))))
#s(approx (cos delta) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2)))))
#s(approx (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2)) #s(hole binary64 (pow (sin phi1) 4)))
#s(approx (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* 2 (* delta (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))))) (pow (sin phi1) 4))))
#s(approx (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))) (* delta (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (pow (sin phi1) 4))))
#s(approx (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (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 (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) #s(hole binary64 (+ (* 2 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))))
#s(approx (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (pow (sin phi1) 2))))
#s(approx (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) #s(hole binary64 (+ (* delta (+ (* 2 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (+ (* -1 (pow (sin phi1) 2)) (+ (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (pow (sin phi1) 2))))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (* (cos phi1) (cos theta))))))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* -1/2 (* delta (sin phi1))) (* (cos phi1) (cos theta)))))))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (sin phi1) (* delta (+ (* delta (+ (* -1/2 (sin phi1)) (* -1/6 (* delta (* (cos phi1) (cos theta)))))) (* (cos phi1) (cos theta)))))))
#s(approx (* (cos 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 phi1) (cos delta)) #s(hole binary64 (sin phi1)))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (+ (sin phi1) (* -1/2 (* (pow delta 2) (sin phi1))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (+ (sin phi1) (* (pow delta 2) (+ (* -1/2 (sin phi1)) (* 1/24 (* (pow delta 2) (sin phi1))))))))
#s(approx (* (sin phi1) (cos delta)) #s(hole binary64 (+ (sin phi1) (* (pow delta 2) (+ (* -1/2 (sin phi1)) (* (pow delta 2) (+ (* -1/720 (* (pow delta 2) (sin phi1))) (* 1/24 (sin phi1)))))))))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ 1 (pow (sin phi1) 2))))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ 1 (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2)))))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ 1 (+ (* delta (+ (* delta (- (* -1/2 (pow (sin phi1) 2)) 1/2)) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2)))))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ 1 (+ (* delta (+ (* delta (- (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) 1/2)) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2)))))
#s(approx (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (cos delta)) #s(hole binary64 (+ 1 (pow (sin phi1) 2))))
#s(approx (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (cos delta)) #s(hole binary64 (+ 1 (+ (* 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))))) (cos delta)) #s(hole binary64 (+ 1 (+ (* delta (+ (* delta (- (* -1/2 (pow (sin phi1) 2)) 1/2)) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2)))))
#s(approx (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (cos delta)) #s(hole binary64 (+ 1 (+ (* delta (+ (* delta (- (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) 1/2)) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2)))))
#s(approx (+ (* (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)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) #s(hole binary64 (* delta (* (sin theta) (+ (* (cos phi1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi1)))))))
#s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) #s(hole binary64 (* delta (+ (* -1/6 (* (pow delta 2) (* (sin theta) (+ (* (cos phi1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi1)))))) (* (sin theta) (+ (* (cos phi1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi1))))))))
#s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) #s(hole binary64 (* delta (+ (* (sin theta) (+ (* (cos phi1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi1)))) (* (pow delta 2) (+ (* -1/6 (* (sin theta) (+ (* (cos phi1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi1))))) (* 1/120 (* (pow delta 2) (* (sin theta) (+ (* (cos phi1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi1))))))))))))
#s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) #s(hole binary64 (* delta (+ (* (sin theta) (+ (* (cos phi1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi1)))) (* (pow delta 2) (+ (* -1/6 (* (sin theta) (+ (* (cos phi1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi1))))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (sin theta) (+ (* (cos phi1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi1)))))) (* 1/120 (* (sin theta) (+ (* (cos phi1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi1)))))))))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (sin theta))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (/ (- 1 (pow (sin phi1) 4)) (+ 1 (pow (sin phi1) 2)))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* delta (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))) (/ 1 (+ 1 (pow (sin phi1) 2)))) (/ (pow (sin phi1) 4) (+ 1 (pow (sin phi1) 2))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* delta (- (+ (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (* delta (- (* -1 (/ (+ 1 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ 1 (pow (sin phi1) 2)))) (+ (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (+ 1 (pow (sin phi1) 2))) (/ (* (- 1 (pow (sin phi1) 4)) (- (* -1/2 (pow (sin phi1) 2)) 1/2)) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))) (/ 1 (+ 1 (pow (sin phi1) 2)))) (/ (pow (sin phi1) 4) (+ 1 (pow (sin phi1) 2))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* delta (- (+ (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (* delta (- (+ (* -1 (/ (+ 1 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ 1 (pow (sin phi1) 2)))) (* delta (- (* -1 (/ (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))) (+ 1 (pow (sin phi1) 2)))) (+ (* -1/6 (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2))) (+ (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- (* -1 (/ (+ 1 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (+ 1 (pow (sin phi1) 2)))) (+ (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (+ 1 (pow (sin phi1) 2))) (/ (* (- 1 (pow (sin phi1) 4)) (- (* -1/2 (pow (sin phi1) 2)) 1/2)) (pow (+ 1 (pow (sin phi1) 2)) 2))))))) (+ 1 (pow (sin phi1) 2))) (/ (* (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2))) (- (* -1/2 (pow (sin phi1) 2)) 1/2)) (+ 1 (pow (sin phi1) 2)))))))) (+ (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- (* -2 (/ (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))) (+ 1 (pow (sin phi1) 2)))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (+ 1 (pow (sin phi1) 2))) (/ (* (- 1 (pow (sin phi1) 4)) (- (* -1/2 (pow (sin phi1) 2)) 1/2)) (pow (+ 1 (pow (sin phi1) 2)) 2)))))) (/ (* (cos phi1) (* (cos theta) (* (sin phi1) (- 1 (pow (sin phi1) 4))))) (pow (+ 1 (pow (sin phi1) 2)) 2)))) (/ 1 (+ 1 (pow (sin phi1) 2)))) (/ (pow (sin phi1) 4) (+ 1 (pow (sin phi1) 2))))))
#s(approx (- (cos 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 (* delta (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1)) #s(hole binary64 delta))
#s(approx (* delta (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1)) #s(hole binary64 (* delta (+ 1 (* -1/6 (pow delta 2))))))
#s(approx (* delta (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1)) #s(hole binary64 (* delta (+ 1 (* (pow delta 2) (- (* 1/120 (pow delta 2)) 1/6))))))
#s(approx (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1) #s(hole binary64 1))
#s(approx (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1) #s(hole binary64 (+ 1 (* -1/6 (pow delta 2)))))
#s(approx (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1) #s(hole binary64 (+ 1 (* (pow delta 2) (- (* 1/120 (pow delta 2)) 1/6)))))
#s(approx (* delta delta) #s(hole binary64 (pow delta 2)))
#s(approx (- (* 1/120 (* delta delta)) 1/6) #s(hole binary64 -1/6))
#s(approx (- (* 1/120 (* delta delta)) 1/6) #s(hole binary64 (- (* 1/120 (pow delta 2)) 1/6)))
#s(approx (* 1/120 (* delta delta)) #s(hole binary64 (* 1/120 (pow delta 2))))
#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 (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (- 1 (pow (sin phi1) 4))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (- (+ 1 (* -2 (* delta (* (cos phi1) (* (cos theta) (pow (sin phi1) 3)))))) (pow (sin phi1) 4))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (- (+ 1 (* delta (- (* -1 (* delta (+ 1 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))))))) (pow (sin phi1) 4))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (- (+ 1 (* delta (- (* delta (- (* -1 (* delta (* (pow (sin phi1) 2) (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/3 (* (cos phi1) (* (cos theta) (sin phi1)))))))) (+ 1 (* (pow (sin phi1) 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* 2 (* (cos phi1) (* (cos theta) (pow (sin phi1) 3))))))) (pow (sin phi1) 4))))
#s(approx (* (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) 2) #s(hole binary64 (pow (cos delta) 2)))
#s(approx (cos delta) #s(hole binary64 (cos delta)))
#s(approx (* (cos theta) (sin delta)) #s(hole binary64 (* (cos theta) (sin delta))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* (sin delta) (sin theta))))
#s(approx (* delta (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1)) #s(hole binary64 (* 1/120 (pow delta 5))))
#s(approx (* delta (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1)) #s(hole binary64 (* (pow delta 5) (- 1/120 (* 1/6 (/ 1 (pow delta 2)))))))
#s(approx (* delta (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1)) #s(hole binary64 (* (pow delta 5) (- (+ 1/120 (/ 1 (pow delta 4))) (* 1/6 (/ 1 (pow delta 2)))))))
#s(approx (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1) #s(hole binary64 (* 1/120 (pow delta 4))))
#s(approx (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1) #s(hole binary64 (* (pow delta 4) (- 1/120 (* 1/6 (/ 1 (pow delta 2)))))))
#s(approx (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1) #s(hole binary64 (* (pow delta 4) (- (+ 1/120 (/ 1 (pow delta 4))) (* 1/6 (/ 1 (pow delta 2)))))))
#s(approx (- (* 1/120 (* delta delta)) 1/6) #s(hole binary64 (* 1/120 (pow delta 2))))
#s(approx (- (* 1/120 (* delta delta)) 1/6) #s(hole binary64 (* (pow delta 2) (- 1/120 (* 1/6 (/ 1 (pow delta 2)))))))
#s(approx (* delta (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1)) #s(hole binary64 (* -1 (* (pow delta 5) (- (* 1/6 (/ 1 (pow delta 2))) 1/120)))))
#s(approx (* delta (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1)) #s(hole binary64 (* -1 (* (pow delta 5) (- (* 1/6 (/ 1 (pow delta 2))) (+ 1/120 (/ 1 (pow delta 4))))))))
#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) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))
#s(approx (/ (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* (pow theta 2) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))) (/ (pow (cos delta) 2) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (/ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))
#s(approx (/ (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* 1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2)))))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))) (/ (pow (cos delta) 2) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (/ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))
#s(approx (/ (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* -1 (/ (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* 1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2)))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/720 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))) (* 1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))))) (+ (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* 1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2)))))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))) (/ (pow (cos delta) 2) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (/ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))
#s(approx (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) #s(hole binary64 (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) #s(hole binary64 (- (+ (* (pow theta 2) (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (pow (cos delta) 2)) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (* (pow theta 2) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (pow (cos delta) 2)) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (- (pow (cos delta) 2) (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2))) #s(hole binary64 (- (+ (* (pow theta 2) (- (* (pow theta 2) (- (* -1 (* (pow theta 2) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (pow (cos delta) 2)) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))
#s(approx (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* -1 (* (pow theta 2) (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* (pow theta 2) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2)))))))) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (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 (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) #s(hole binary64 (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))
#s(approx (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) #s(hole binary64 (+ (* -1 (* (pow theta 2) (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))
#s(approx (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) #s(hole binary64 (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (pow theta 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))
#s(approx (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) #s(hole binary64 (+ (* (pow theta 2) (+ (* -1 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* (pow theta 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (pow theta 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))))))) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta)))))))))))
#s(approx (cos theta) #s(hole binary64 1))
#s(approx (cos theta) #s(hole binary64 (+ 1 (* -1/2 (pow theta 2)))))
#s(approx (cos theta) #s(hole binary64 (+ 1 (* (pow theta 2) (- (* 1/24 (pow theta 2)) 1/2)))))
#s(approx (cos theta) #s(hole binary64 (+ 1 (* (pow theta 2) (- (* (pow theta 2) (+ 1/24 (* -1/720 (pow theta 2)))) 1/2)))))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ (cos delta) (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ (cos delta) (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) #s(hole binary64 (+ (cos delta) (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1))))))))))))
#s(approx (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (cos delta)) #s(hole binary64 (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (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 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (cos delta)) #s(hole binary64 (+ (cos delta) (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1))))))))))))
#s(approx (+ (* (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) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) #s(hole binary64 (* theta (* (sin delta) (+ (* (cos phi1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi1)))))))
#s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) #s(hole binary64 (* theta (+ (* -1/6 (* (pow theta 2) (* (sin delta) (+ (* (cos phi1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi1)))))) (* (sin delta) (+ (* (cos phi1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi1))))))))
#s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) #s(hole binary64 (* theta (+ (* (sin delta) (+ (* (cos phi1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi1)))) (* (pow theta 2) (+ (* -1/6 (* (sin delta) (+ (* (cos phi1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi1))))) (* 1/120 (* (pow theta 2) (* (sin delta) (+ (* (cos phi1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi1))))))))))))
#s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) #s(hole binary64 (* theta (+ (* (sin delta) (+ (* (cos phi1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi1)))) (* (pow theta 2) (+ (* -1/6 (* (sin delta) (+ (* (cos phi1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi1))))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (sin delta) (+ (* (cos phi1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi1)))))) (* 1/120 (* (sin delta) (+ (* (cos phi1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi1)))))))))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (sin delta))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))))
#s(approx (* (sin delta) (sin theta)) #s(hole binary64 (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (/ (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* (pow theta 2) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))) (/ (pow (cos delta) 2) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (/ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* 1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2)))))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))) (/ (pow (cos delta) 2) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (/ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(hole binary64 (- (+ (* (pow theta 2) (- (+ (* (pow theta 2) (- (+ (* -1 (/ (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* (pow theta 2) (- (* -1 (/ (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* -1 (/ (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* 1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2)))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (+ (* -1/720 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))) (* 1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))))) (+ (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* 1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2)))))) (/ (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (* -1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (pow (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) 2))))) (/ (pow (cos delta) 2) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (/ (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)) (+ (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) #s(hole binary64 (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta))))))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(hole binary64 (+ (* (cos delta) (sin phi1)) (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta)))))))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (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 (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (- (pow (cos delta) 2) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (- (+ (* (pow theta 2) (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))) (pow (cos delta) 2)) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (- (+ (* (pow theta 2) (- (* -1 (* (pow theta 2) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (pow (cos delta) 2)) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) #s(hole binary64 (- (+ (* (pow theta 2) (- (* (pow theta 2) (- (* -1 (* (pow theta 2) (* (pow (sin phi1) 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* -1/360 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* (pow (sin phi1) 2) (+ (* 1/12 (* (cos phi1) (* (sin delta) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (* -1 (* (cos phi1) (* (sin delta) (* (pow (sin phi1) 2) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (pow (cos delta) 2)) (* (pow (sin phi1) 2) (pow (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))
#s(approx (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 2 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (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 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (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 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))))))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (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 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (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 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (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 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (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 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (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 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (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 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))))) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (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 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))))))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (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 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (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 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))))))
lambda1
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (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 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))
(fma.f64 (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (.f64 (sin.f64 theta) (sin.f64 delta)) (.f64 (.f64 (cos.f64 phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 theta) (sin.f64 delta))))
(fma.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 phi1) #s(literal 1 binary64))))
(+.f64 (.f64 (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (.f64 (sin.f64 theta) (sin.f64 delta))) (.f64 (.f64 (cos.f64 phi1) #s(literal 1 binary64)) (.f64 (sin.f64 theta) (sin.f64 delta))))
(+.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (.f64 (sin.f64 phi1) #s(literal 0 binary64))) (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 phi1) #s(literal 1 binary64))))
(*.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
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (.f64 (sin.f64 phi1) #s(literal 0 binary64))) (.f64 (.f64 (cos.f64 phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) #s(literal 1 binary64)))) (-.f64 (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (.f64 (cos.f64 phi1) #s(literal 1 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) #s(literal 0 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) #s(literal 1 binary64))) (.f64 (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (.f64 (cos.f64 phi1) #s(literal 1 binary64))))))
(fma.f64 (cos.f64 phi1) #s(literal 1 binary64) (*.f64 (sin.f64 phi1) #s(literal 0 binary64)))
(fma.f64 (sin.f64 phi1) #s(literal 0 binary64) (*.f64 (cos.f64 phi1) #s(literal 1 binary64)))
(sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(-.f64 (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (.f64 (neg.f64 (cos.f64 phi1)) #s(literal 1 binary64)))
(cos.f64 (neg.f64 phi1))
(cos.f64 phi1)
(+.f64 (.f64 (cos.f64 phi1) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) #s(literal 0 binary64)))
(+.f64 (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (.f64 (cos.f64 phi1) #s(literal 1 binary64)))
phi1
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 2 binary64)))) (neg.f64 #s(approx (+ (cos delta) ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (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 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))) (/.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (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 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))))
(/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (fma.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 2 binary64))))))
(fma.f64 (pow.f64 (cos.f64 delta) #s(literal 1 binary64)) (pow.f64 (cos.f64 delta) #s(literal 1 binary64)) (.f64 (neg.f64 (pow.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(fma.f64 (cos.f64 delta) (cos.f64 delta) (.f64 (neg.f64 (pow.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 2 binary64)))
(+.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (neg.f64 (pow.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(*.f64 (pow.f64 (cos.f64 delta) #s(literal 1 binary64)) (pow.f64 (cos.f64 delta) #s(literal 1 binary64)))
(*.f64 (cos.f64 delta) (cos.f64 delta))
(pow.f64 (cos.f64 delta) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (cos.f64 delta)) #s(literal 2 binary64)))
(sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 delta))
(cos.f64 delta)
#s(literal 2 binary64)
(.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 1 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 1 binary64)))
(.f64 (pow.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)))
(pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 2 binary64))
(exp.f64 (.f64 (log.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1))) #s(literal 2 binary64)))
(.f64 (pow.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) #s(literal 1 binary64)) (pow.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta))) #s(literal 1 binary64)))
(.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.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))))
(pow.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) #s(literal 2 binary64))
(exp.f64 (.f64 (log.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (cos.f64 delta)))) #s(literal 2 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 (.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 (sin.f64 phi1) (cos.f64 delta)))) (-.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (.f64 (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)))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (.f64 (.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 (sin.f64 phi1) (cos.f64 delta))))))
(fma.f64 (.f64 (cos.f64 theta) (cos.f64 phi1)) (sin.f64 delta) (.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 (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 (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(-.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (neg.f64 (cos.f64 theta)) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
(+.f64 (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (cos.f64 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 (sin.f64 phi1) (cos.f64 delta))
(/.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 phi1 delta))) #s(literal 2 binary64))
(sin.f64 phi1)
(*.f64 (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 1 binary64)))
(*.f64 (sin.f64 phi1) (sin.f64 phi1))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (sin.f64 phi1)) #s(literal 2 binary64)))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (cos.f64 delta)))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64)) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) (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 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (-.f64 (.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))))
(fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))
(-.f64 (cos.f64 delta) (.f64 (neg.f64 (sin.f64 phi1)) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))
(+.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) (cos.f64 delta))
(+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))
(/.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 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))
(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 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))
(+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))
(.f64 (.f64 (cos.f64 phi1) (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 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) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))) (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))) (-.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta)))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))) (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta)))) (.f64 lambda1 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta)))))))
(+.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))) lambda1)
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
(atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(/.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (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))))) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (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))))) (.f64 (cos.f64 theta) (sin.f64 delta)))))))) (-.f64 lambda1 (atan2.f64 #s(approx ( (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (.f64 (cos.f64 theta) (sin.f64 delta)))))) #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))) (-.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)))))) (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))))) (.f64 (cos.f64 theta) (sin.f64 delta))))))) (.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))))
(+.f64 (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))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1)
(+.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))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(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))))) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(/.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))))) (.f64 (cos.f64 theta) (sin.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 (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 (-.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))))) (.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) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (.f64 (cos.f64 theta) (sin.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 (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 (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 (cos.f64 delta) (.f64 (neg.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 (sin.f64 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))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 delta (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64))))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 delta (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64))))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 delta (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64))))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (cos.f64 delta))))))))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 delta (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64))))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 delta (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64))))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 delta (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64))))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (cos.f64 delta))))))) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 delta (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64))))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (cos.f64 delta))))))))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 delta (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64))))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 delta (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64))))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 delta (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64))))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (cos.f64 delta))))))
(.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 delta (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64))))) (cos.f64 phi1))
(.f64 (sin.f64 theta) (.f64 #s(approx (sin delta) (.f64 delta (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64)))) (cos.f64 phi1)))
(.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 delta (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (*.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64)))))
#s(approx (sin delta) (.f64 delta (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64))))
(.f64 delta (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64)))
(fma.f64 (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64))) delta (*.f64 #s(literal 1 binary64) delta))
(fma.f64 #s(literal 1 binary64) delta (.f64 (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (*.f64 delta delta)) #s(literal 1/6 binary64))) delta))
(fma.f64 delta (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64))) (*.f64 delta #s(literal 1 binary64)))
(fma.f64 delta #s(literal 1 binary64) (.f64 delta (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (*.f64 delta delta)) #s(literal 1/6 binary64)))))
(+.f64 (.f64 #s(literal 1 binary64) delta) (.f64 (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64))) delta))
(+.f64 (.f64 (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64))) delta) (.f64 #s(literal 1 binary64) delta))
(+.f64 (.f64 delta #s(literal 1 binary64)) (.f64 delta (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)))))
(+.f64 (.f64 delta (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)))) (.f64 delta #s(literal 1 binary64)))
(/.f64 (-.f64 (.f64 (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64))) (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)))) #s(literal 1 binary64)) (-.f64 (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (*.f64 delta delta)) #s(literal 1/6 binary64))) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64))) (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64))))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (*.f64 delta delta)) #s(literal 1/6 binary64)))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64))) #s(literal 3 binary64)) #s(literal 1 binary64)) (fma.f64 (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64))) (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (*.f64 delta delta)) #s(literal 1/6 binary64))) #s(literal 1 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64))) (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)))) (.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)))))))
(fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (*.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64))
(fma.f64 delta (.f64 delta (-.f64 (.f64 #s(literal 1/120 binary64) (*.f64 delta delta)) #s(literal 1/6 binary64))) #s(literal 1 binary64))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 delta delta)) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64))))
(+.f64 (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 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 (-.f64 (.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) (.f64 #s(literal 1/120 binary64) (.f64 delta delta))) #s(literal 1/36 binary64)) (fma.f64 #s(literal 1/120 binary64) (.f64 delta delta) #s(literal 1/6 binary64)))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 3 binary64)) #s(literal 1/216 binary64)) (fma.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) (+.f64 #s(literal 1/36 binary64) (.f64 (.f64 #s(literal 1/120 binary64) (*.f64 delta delta)) #s(literal 1/6 binary64)))))
(-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64))
(.f64 (.f64 #s(literal 1/120 binary64) delta) delta)
(.f64 #s(literal 1/120 binary64) (.f64 delta delta))
#s(literal 1/120 binary64)
#s(literal 1/6 binary64)
#s(literal 1 binary64)
(/.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)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (fma.f64 (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (*.f64 (sin.f64 phi1) (cos.f64 delta))))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.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)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))
(.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (cos.f64 delta))))
(fma.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)))) (sin.f64 phi1) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)))
(fma.f64 (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)))) (.f64 (sin.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta))))
(+.f64 (.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)))) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (sin.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi1) (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))))) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)))) (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta)))) (-.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)))) (.f64 (sin.f64 phi1) (cos.f64 delta))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)))) #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)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)))) (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)))) (-.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)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)))) (.f64 (sin.f64 phi1) (cos.f64 delta))))))
(fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))
(fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)))))
(-.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)))) (.f64 (neg.f64 (sin.f64 phi1)) (cos.f64 delta)))
(+.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)))) (.f64 (sin.f64 phi1) (cos.f64 delta)))
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)))))
#s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(/.f64 (-.f64 (.f64 (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (-.f64 (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64))))) (-.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 (+.f64 (pow.f64 (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) #s(literal 1 binary64)) (fma.f64 (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)))) (.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)))))))
(fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))
(fma.f64 phi1 (.f64 phi1 (-.f64 (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 phi1 phi1)) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64))))
(+.f64 (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(+.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 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)))
(*.f64 (fabs.f64 phi1) (fabs.f64 phi1))
(*.f64 (neg.f64 phi1) (neg.f64 phi1))
(*.f64 phi1 phi1)
(pow.f64 phi1 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 phi1) #s(literal 2 binary64)))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1))) #s(literal 1/4 binary64)) (fma.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (fma.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) (+.f64 #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)))))
(-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64))
(.f64 (.f64 #s(literal 1/24 binary64) phi1) phi1)
(.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1))
#s(literal 1/24 binary64)
#s(literal 1/2 binary64)
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 #s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 #s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))))))) (-.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 #s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (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 #s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (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 #s(approx (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))))) (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 #s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))))) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 #s(approx (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))))))))
(+.f64 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 #s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 #s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))))))
(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 #s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))))
(/.f64 (neg.f64 #s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (neg.f64 #s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))))
(/.f64 #s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (*.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
(-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))
(*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(pow.f64 (sin.f64 phi1) #s(literal 4 binary64))
(exp.f64 (*.f64 (log.f64 (sin.f64 phi1)) #s(literal 4 binary64)))
#s(literal 4 binary64)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (+.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))) lambda1))
#s(approx lambda1 lambda1)
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos 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 (sin.f64 delta) (.f64 (sin.f64 theta) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (+.f64 (atan2.f64 (.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))) lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (+.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) 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))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.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))))))) (+.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (+.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))) lambda1))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos 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)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos 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 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))) lambda1) #s(literal 1 binary64))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos 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)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos 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 (/.f64 (atan2.f64 (.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))) lambda1) #s(literal 1 binary64))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) 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 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 1 binary64))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (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 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 1 binary64))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos 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)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos 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 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))) lambda1) #s(literal 1 binary64))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (neg.f64 (.f64 lambda1 (-.f64 (neg.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))) lambda1)) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (neg.f64 (.f64 lambda1 (-.f64 (neg.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))) lambda1)) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (neg.f64 (.f64 lambda1 (-.f64 (neg.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))))) (neg.f64 (.f64 lambda1 (-.f64 (neg.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (neg.f64 (.f64 lambda1 (-.f64 (neg.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))) lambda1)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (.f64 #s(literal -1/2 binary64) (.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 (.f64 phi1 phi1) (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 (sin.f64 delta) (sin.f64 theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 delta)) (sin.f64 theta) (.f64 (.f64 phi1 phi1) (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 (sin.f64 delta) (sin.f64 theta))))
#s(approx (cos phi1) #s(literal 1 binary64))
#s(approx (cos phi1) (fma.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1) #s(literal 1 binary64)))
#s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
#s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
#s(approx phi1 phi1)
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta)))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (fma.f64 phi1 (-.f64 (neg.f64 (.f64 phi1 (cos.f64 delta))) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 delta)))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (fma.f64 phi1 (fma.f64 phi1 (-.f64 (neg.f64 (.f64 phi1 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64)))) (cos.f64 delta)) (.f64 (neg.f64 (cos.f64 theta)) (sin.f64 delta))) (cos.f64 delta)))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (fma.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 phi1)) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 #s(literal -2 binary64) 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 (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 phi1 (fma.f64 (.f64 #s(literal -1 binary64) 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)))) (.f64 #s(literal -2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
#s(approx (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2)) (.f64 (.f64 phi1 phi1) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))
#s(approx (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2)) (.f64 (.f64 phi1 phi1) (fma.f64 (.f64 #s(literal 2 binary64) phi1) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))
#s(approx (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2)) (.f64 (.f64 phi1 phi1) (fma.f64 phi1 (fma.f64 (.f64 #s(literal 2 binary64) (cos.f64 delta)) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))))
#s(approx (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2)) (.f64 (.f64 phi1 phi1) (fma.f64 phi1 (fma.f64 (.f64 #s(literal 2 binary64) (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 (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) #s(literal -1 binary64) (neg.f64 (.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 (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)))
#s(approx (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (fma.f64 (.f64 #s(literal 2 binary64) phi1) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) (pow.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))
#s(approx (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (fma.f64 phi1 (fma.f64 (.f64 #s(literal 2 binary64) (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)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))))
#s(approx (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (fma.f64 phi1 (fma.f64 (.f64 #s(literal 2 binary64) (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 phi1 (.f64 (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta))) #s(literal -4/3 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 (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (cos.f64 theta) (sin.f64 delta) (*.f64 phi1 (cos.f64 delta))))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 phi1 (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta)) (*.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 delta)))) (cos.f64 delta)) (.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 #s(literal -1/2 binary64) (.f64 phi1 phi1)) (sin.f64 delta) (sin.f64 delta)))
#s(approx (* (cos phi1) (sin delta)) (fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) (sin.f64 delta) (.f64 #s(literal -1/2 binary64) (sin.f64 delta))) (sin.f64 delta)))
#s(approx (* (cos phi1) (sin delta)) (fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) (sin.f64 delta) (.f64 #s(literal 1/24 binary64) (sin.f64 delta))) (.f64 #s(literal -1/2 binary64) (sin.f64 delta))) (sin.f64 delta)))
#s(approx (* (sin phi1) (cos delta)) (*.f64 phi1 (cos.f64 delta)))
#s(approx (* (sin phi1) (cos delta)) (.f64 phi1 (fma.f64 (.f64 #s(literal -1/6 binary64) (*.f64 phi1 phi1)) (cos.f64 delta) (cos.f64 delta))))
#s(approx (* (sin phi1) (cos delta)) (.f64 phi1 (fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) (cos.f64 delta) (*.f64 #s(literal -1/6 binary64) (cos.f64 delta))) (cos.f64 delta))))
#s(approx (* (sin phi1) (cos delta)) (.f64 phi1 (fma.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/6 binary64) (cos.f64 delta) (.f64 (.f64 phi1 phi1) (fma.f64 (.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1)) (cos.f64 delta) (*.f64 #s(literal 1/120 binary64) (cos.f64 delta))))) (cos.f64 delta))))
#s(approx (sin phi1) phi1)
#s(approx (sin phi1) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64))))
#s(approx (sin phi1) (.f64 phi1 (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) #s(literal 1 binary64))))
#s(approx (sin phi1) (.f64 phi1 (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/5040 binary64) (*.f64 phi1 phi1) #s(literal 1/120 binary64))) #s(literal 1/6 binary64)) #s(literal 1 binary64))))
#s(approx (pow (sin phi1) 2) (*.f64 phi1 phi1))
#s(approx (pow (sin phi1) 2) (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/3 binary64) (*.f64 phi1 phi1) #s(literal 1 binary64))))
#s(approx (pow (sin phi1) 2) (.f64 (.f64 phi1 phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 2/45 binary64) (*.f64 phi1 phi1)) #s(literal 1/3 binary64)) #s(literal 1 binary64))))
#s(approx (pow (sin phi1) 2) (.f64 (.f64 phi1 phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/315 binary64) (.f64 phi1 phi1) #s(literal 2/45 binary64))) #s(literal 1/3 binary64)) #s(literal 1 binary64))))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (cos.f64 delta))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta) (cos.f64 delta)))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (fma.f64 phi1 (fma.f64 (cos.f64 theta) (sin.f64 delta) (*.f64 phi1 (cos.f64 delta))) (cos.f64 delta)))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64)) (cos.f64 delta)) (*.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 delta)))
#s(approx (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (cos delta)) (cos.f64 delta))
#s(approx (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (cos delta)) (fma.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta) (cos.f64 delta)))
#s(approx (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (cos delta)) (fma.f64 phi1 (fma.f64 (cos.f64 theta) (sin.f64 delta) (*.f64 phi1 (cos.f64 delta))) (cos.f64 delta)))
#s(approx (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (cos delta)) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64)) (cos.f64 delta)) (*.f64 (cos.f64 theta) (sin.f64 delta))) (cos.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 (cos.f64 theta) (sin.f64 delta) (*.f64 phi1 (cos.f64 delta))))
#s(approx (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (fma.f64 phi1 (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (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 (fma.f64 phi1 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 delta)))) (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 (.f64 #s(literal -1/2 binary64) (.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 (.f64 phi1 phi1) (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 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (cos phi1) (* (cos theta) (sin delta))) (fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta) (.f64 (.f64 phi1 phi1) (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 (cos.f64 theta) (sin.f64 delta))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos 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 (sin.f64 delta) (.f64 (sin.f64 theta) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 phi1 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 delta)) (sin.f64 theta)) (.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 phi1 (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 delta)) (sin.f64 theta) (.f64 (.f64 #s(literal -1/2 binary64) phi1) (.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 (.f64 #s(literal -1/6 binary64) phi1) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 delta)) (sin.f64 theta)) (.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 delta)) (.f64 (sin.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 delta)) (sin.f64 theta))) (.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta)))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (fma.f64 phi1 (-.f64 (neg.f64 (.f64 phi1 (cos.f64 delta))) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 delta)))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (fma.f64 phi1 (fma.f64 phi1 (-.f64 (neg.f64 (.f64 phi1 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64)))) (cos.f64 delta)) (.f64 (neg.f64 (cos.f64 theta)) (sin.f64 delta))) (cos.f64 delta)))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (fma.f64 (.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 phi1 (-.f64 (neg.f64 (.f64 phi1 (cos.f64 delta))) (.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 phi1 (fma.f64 phi1 (-.f64 (neg.f64 (.f64 phi1 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64)))) (cos.f64 delta)) (.f64 (neg.f64 (cos.f64 theta)) (sin.f64 delta))) (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 phi1 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 phi1 (cos.f64 delta)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64)) (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 (fma.f64 phi1 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta) (fma.f64 (.f64 #s(literal -1/3 binary64) phi1) (cos.f64 delta) (.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 theta)) (sin.f64 delta)))) (cos.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 (cos.f64 theta) (sin.f64 delta) (*.f64 phi1 (cos.f64 delta))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 phi1 (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (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 (fma.f64 phi1 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 delta)))) (cos.f64 delta)) (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (cos.f64 delta))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 delta)))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (fma.f64 phi1 (-.f64 (neg.f64 (.f64 phi1 (cos.f64 delta))) (.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 delta)))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (fma.f64 phi1 (fma.f64 phi1 (-.f64 (neg.f64 (.f64 phi1 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64)))) (cos.f64 delta)) (.f64 (neg.f64 (cos.f64 theta)) (sin.f64 delta))) (cos.f64 delta)))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (.f64 (.f64 phi1 (cos.f64 theta)) (sin.f64 delta)))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (.f64 phi1 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 phi1 (cos.f64 delta)))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64)) (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 (fma.f64 phi1 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta) (fma.f64 (.f64 #s(literal -1/3 binary64) phi1) (cos.f64 delta) (.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 theta)) (sin.f64 delta)))) (cos.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 (cos.f64 theta) (sin.f64 delta) (*.f64 phi1 (cos.f64 delta))))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (fma.f64 phi1 (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (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 (fma.f64 phi1 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 delta)))) (cos.f64 delta)) (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (+ (* (* phi1 phi1) (- (* 1/24 (* phi1 phi1)) 1/2)) 1) #s(literal 1 binary64))
#s(approx (+ (* (* phi1 phi1) (- (* 1/24 (* phi1 phi1)) 1/2)) 1) (fma.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1) #s(literal 1 binary64)))
#s(approx (+ (* (* phi1 phi1) (- (* 1/24 (* phi1 phi1)) 1/2)) 1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
#s(approx (* phi1 phi1) (*.f64 phi1 phi1))
#s(approx (- (* 1/24 (* phi1 phi1)) 1/2) #s(literal -1/2 binary64))
#s(approx (- (* 1/24 (* phi1 phi1)) 1/2) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)))
#s(approx (* 1/24 (* phi1 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)))
#s(approx (atan2 (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (fma.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 phi1)) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 #s(literal -2 binary64) 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 (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 phi1 (fma.f64 (.f64 #s(literal -1 binary64) 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)))) (.f64 #s(literal -2 binary64) (.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (sin.f64 delta)))))) (pow.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2 binary64))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sin phi1) 4)) #s(literal 1 binary64))
#s(approx (- 1 (pow (sin phi1) 4)) (fma.f64 #s(literal -1 binary64) (pow.f64 phi1 #s(literal 4 binary64)) #s(literal 1 binary64)))
#s(approx (- 1 (pow (sin phi1) 4)) (fma.f64 (pow.f64 phi1 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 2/3 binary64) (.f64 phi1 phi1)) #s(literal 1 binary64)) #s(literal 1 binary64)))
#s(approx (- 1 (pow (sin phi1) 4)) (fma.f64 (pow.f64 phi1 #s(literal 4 binary64)) (-.f64 (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/5 binary64) (*.f64 phi1 phi1) #s(literal 2/3 binary64))) #s(literal 1 binary64)) #s(literal 1 binary64)))
#s(approx (pow (sin phi1) 4) (pow.f64 phi1 #s(literal 4 binary64)))
#s(approx (pow (sin phi1) 4) (.f64 (pow.f64 phi1 #s(literal 4 binary64)) (fma.f64 #s(literal -2/3 binary64) (.f64 phi1 phi1) #s(literal 1 binary64))))
#s(approx (pow (sin phi1) 4) (.f64 (pow.f64 phi1 #s(literal 4 binary64)) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/5 binary64) (.f64 phi1 phi1)) #s(literal 2/3 binary64)) #s(literal 1 binary64))))
#s(approx (pow (sin phi1) 4) (.f64 (pow.f64 phi1 #s(literal 4 binary64)) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -34/945 binary64) (*.f64 phi1 phi1) #s(literal 1/5 binary64))) #s(literal 2/3 binary64)) #s(literal 1 binary64))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)))
#s(approx (cos phi1) (cos.f64 phi1))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))))
#s(approx (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))
#s(approx (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) #s(literal 2 binary64)))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))))
#s(approx (* (cos phi1) (sin delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
#s(approx (* (sin phi1) (cos delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))
#s(approx (sin phi1) (sin.f64 phi1))
#s(approx (pow (sin phi1) 2) (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 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))
#s(approx (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (cos delta)) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))
#s(approx (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))))
#s(approx (* (cos phi1) (* (cos theta) (sin delta))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (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 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))))
#s(approx (+ (* (* phi1 phi1) (- (* 1/24 (* phi1 phi1)) 1/2)) 1) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi1 #s(literal 4 binary64))))
#s(approx (+ (* (* phi1 phi1) (- (* 1/24 (* phi1 phi1)) 1/2)) 1) (.f64 (pow.f64 phi1 #s(literal 4 binary64)) (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/2 binary64) (pow.f64 phi1 #s(literal -2 binary64))))))
#s(approx (+ (* (* phi1 phi1) (- (* 1/24 (* phi1 phi1)) 1/2)) 1) (.f64 (pow.f64 phi1 #s(literal 4 binary64)) (-.f64 (+.f64 (pow.f64 phi1 #s(literal -4 binary64)) #s(literal 1/24 binary64)) (.f64 #s(literal 1/2 binary64) (pow.f64 phi1 #s(literal -2 binary64))))))
#s(approx (- (* 1/24 (* phi1 phi1)) 1/2) (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)))
#s(approx (- (* 1/24 (* phi1 phi1)) 1/2) (.f64 (.f64 phi1 phi1) (-.f64 #s(literal 1/24 binary64) (*.f64 #s(literal 1/2 binary64) (pow.f64 phi1 #s(literal -2 binary64))))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sin phi1) 4)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (pow (sin phi1) 4) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 delta (cos.f64 phi1)) (sin.f64 theta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (fma.f64 (.f64 #s(literal -1/6 binary64) (.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 (.f64 delta delta) (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 theta) (.f64 (.f64 #s(literal 1/120 binary64) (.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 (.f64 delta delta) (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 theta) (.f64 (.f64 delta delta) (fma.f64 (.f64 #s(literal 1/120 binary64) (cos.f64 phi1)) (sin.f64 theta) (.f64 (.f64 #s(literal -1/5040 binary64) (.f64 delta delta)) (.f64 (cos.f64 phi1) (sin.f64 theta)))))) (*.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 (fma.f64 (.f64 #s(literal -1/6 binary64) (*.f64 delta delta)) (sin.f64 theta) (sin.f64 theta))))
#s(approx (* (sin theta) (sin delta)) (.f64 delta (fma.f64 (.f64 delta delta) (fma.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) (sin.f64 theta) (*.f64 #s(literal -1/6 binary64) (sin.f64 theta))) (sin.f64 theta))))
#s(approx (* (sin theta) (sin delta)) (.f64 delta (fma.f64 (.f64 delta delta) (fma.f64 (.f64 delta delta) (fma.f64 (.f64 #s(literal -1/5040 binary64) (.f64 delta delta)) (sin.f64 theta) (.f64 #s(literal 1/120 binary64) (sin.f64 theta))) (*.f64 #s(literal -1/6 binary64) (sin.f64 theta))) (sin.f64 theta))))
#s(approx (sin delta) delta)
#s(approx (sin delta) (.f64 delta (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64))))
#s(approx (sin delta) (.f64 delta (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64))))
#s(approx (sin delta) (.f64 delta (fma.f64 (.f64 delta delta) (-.f64 (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/5040 binary64) (*.f64 delta delta) #s(literal 1/120 binary64))) #s(literal 1/6 binary64)) #s(literal 1 binary64))))
#s(approx delta delta)
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (fma.f64 delta (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (fma.f64 delta (-.f64 (fma.f64 delta (-.f64 (neg.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))) #s(literal 1 binary64)) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)))) (fma.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (-.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64))) (pow.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (fma.f64 delta (-.f64 (fma.f64 delta (-.f64 (fma.f64 delta (-.f64 (neg.f64 (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal -4/3 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)))) (fma.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)) #s(literal 2 binary64))) (/.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (sin.f64 phi1) (-.f64 (neg.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))) #s(literal 1 binary64)) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)))) (fma.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (-.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64))) (pow.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)) #s(literal 2 binary64)))))) (.f64 (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)) #s(literal 2 binary64)))) (-.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64))))) (neg.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))) #s(literal 1 binary64)) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64))))) (fma.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (-.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64))) (pow.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 (fma.f64 (.f64 #s(literal -2 binary64) delta) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 (fma.f64 delta (fma.f64 (.f64 #s(literal -1 binary64) delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))) #s(literal 1 binary64)) (.f64 #s(literal -2 binary64) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 (fma.f64 delta (fma.f64 delta (-.f64 (neg.f64 (.f64 (.f64 delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal -4/3 binary64)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))) #s(literal 1 binary64))) (.f64 #s(literal -2 binary64) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (pow (cos delta) 2) #s(literal 1 binary64))
#s(approx (pow (cos delta) 2) (fma.f64 #s(literal -1 binary64) (*.f64 delta delta) #s(literal 1 binary64)))
#s(approx (pow (cos delta) 2) (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/3 binary64) (*.f64 delta delta)) #s(literal 1 binary64)) #s(literal 1 binary64)))
#s(approx (pow (cos delta) 2) (fma.f64 (.f64 delta delta) (-.f64 (.f64 (.f64 delta delta) (fma.f64 #s(literal -2/45 binary64) (.f64 delta delta) #s(literal 1/3 binary64))) #s(literal 1 binary64)) #s(literal 1 binary64)))
#s(approx (cos delta) #s(literal 1 binary64))
#s(approx (cos delta) (fma.f64 #s(literal -1/2 binary64) (*.f64 delta delta) #s(literal 1 binary64)))
#s(approx (cos delta) (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/24 binary64) (*.f64 delta delta)) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
#s(approx (cos delta) (fma.f64 (.f64 delta delta) (-.f64 (.f64 (.f64 delta delta) (fma.f64 #s(literal -1/720 binary64) (.f64 delta delta) #s(literal 1/24 binary64))) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
#s(approx (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2)) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))
#s(approx (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2)) (fma.f64 (.f64 #s(literal 2 binary64) delta) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2)) (fma.f64 delta (fma.f64 (.f64 #s(literal 2 binary64) (cos.f64 phi1)) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (.f64 (.f64 delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2)) (fma.f64 delta (fma.f64 (.f64 #s(literal 2 binary64) (cos.f64 phi1)) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (.f64 delta (fma.f64 (.f64 delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal -4/3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (fma.f64 (.f64 #s(literal 2 binary64) delta) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (fma.f64 delta (fma.f64 (.f64 #s(literal 2 binary64) (cos.f64 phi1)) (.f64 (cos.f64 theta) (sin.f64 phi1)) (.f64 delta (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 2 binary64))))
#s(approx (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (fma.f64 delta (fma.f64 delta (+.f64 (fma.f64 delta (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal -4/3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))) (neg.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (.f64 #s(literal 2 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (sin.f64 phi1))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 delta (cos.f64 phi1)) (cos.f64 theta) (sin.f64 phi1)))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 delta (fma.f64 (.f64 #s(literal -1/2 binary64) delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 delta (fma.f64 delta (fma.f64 (.f64 #s(literal -1/6 binary64) delta) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)))
#s(approx (* (cos phi1) (sin delta)) (*.f64 delta (cos.f64 phi1)))
#s(approx (* (cos phi1) (sin delta)) (.f64 delta (fma.f64 (.f64 #s(literal -1/6 binary64) (*.f64 delta delta)) (cos.f64 phi1) (cos.f64 phi1))))
#s(approx (* (cos phi1) (sin delta)) (.f64 delta (fma.f64 (.f64 delta delta) (fma.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) (cos.f64 phi1) (*.f64 #s(literal -1/6 binary64) (cos.f64 phi1))) (cos.f64 phi1))))
#s(approx (* (cos phi1) (sin delta)) (.f64 delta (fma.f64 (.f64 delta delta) (fma.f64 (.f64 delta delta) (fma.f64 (.f64 #s(literal -1/5040 binary64) (.f64 delta delta)) (cos.f64 phi1) (.f64 #s(literal 1/120 binary64) (cos.f64 phi1))) (*.f64 #s(literal -1/6 binary64) (cos.f64 phi1))) (cos.f64 phi1))))
#s(approx (* (sin phi1) (cos delta)) (sin.f64 phi1))
#s(approx (* (sin phi1) (cos delta)) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 delta delta)) (sin.f64 phi1) (sin.f64 phi1)))
#s(approx (* (sin phi1) (cos delta)) (fma.f64 (.f64 delta delta) (fma.f64 (.f64 #s(literal 1/24 binary64) (.f64 delta delta)) (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1))) (sin.f64 phi1)))
#s(approx (* (sin phi1) (cos delta)) (fma.f64 (.f64 delta delta) (fma.f64 (.f64 delta delta) (fma.f64 (.f64 #s(literal -1/720 binary64) (.f64 delta delta)) (sin.f64 phi1) (.f64 #s(literal 1/24 binary64) (sin.f64 phi1))) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1))) (sin.f64 phi1)))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (+.f64 (fma.f64 (.f64 delta (cos.f64 phi1)) (.f64 (cos.f64 theta) (sin.f64 phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1 binary64)))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (+.f64 (fma.f64 delta (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1) (.f64 delta (-.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1 binary64)))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (+.f64 (fma.f64 delta (fma.f64 delta (-.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1 binary64)))
#s(approx (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (cos delta)) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)))
#s(approx (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (cos delta)) (+.f64 (fma.f64 (.f64 delta (cos.f64 phi1)) (.f64 (cos.f64 theta) (sin.f64 phi1)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1 binary64)))
#s(approx (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (cos delta)) (+.f64 (fma.f64 delta (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1) (.f64 delta (-.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1 binary64)))
#s(approx (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (cos delta)) (+.f64 (fma.f64 delta (fma.f64 delta (-.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1 binary64)))
#s(approx (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (sin.f64 phi1))
#s(approx (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (fma.f64 (*.f64 delta (cos.f64 phi1)) (cos.f64 theta) (sin.f64 phi1)))
#s(approx (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (fma.f64 delta (fma.f64 (.f64 #s(literal -1/2 binary64) delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)))
#s(approx (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (fma.f64 delta (fma.f64 delta (fma.f64 (.f64 #s(literal -1/6 binary64) delta) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)))
#s(approx (* (cos phi1) (* (cos theta) (sin delta))) (.f64 (.f64 delta (cos.f64 phi1)) (cos.f64 theta)))
#s(approx (* (cos phi1) (* (cos theta) (sin delta))) (.f64 delta (fma.f64 (.f64 #s(literal -1/6 binary64) (.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 (.f64 delta delta) (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (cos.f64 theta) (.f64 (.f64 #s(literal 1/120 binary64) (.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 (.f64 delta delta) (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (cos.f64 theta) (.f64 (.f64 delta delta) (fma.f64 (.f64 #s(literal 1/120 binary64) (cos.f64 phi1)) (cos.f64 theta) (.f64 (.f64 #s(literal -1/5040 binary64) (.f64 delta 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 (fma.f64 (.f64 #s(literal -1/6 binary64) (*.f64 delta delta)) (cos.f64 theta) (cos.f64 theta))))
#s(approx (* (cos theta) (sin delta)) (.f64 delta (fma.f64 (.f64 delta delta) (fma.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) (cos.f64 theta) (*.f64 #s(literal -1/6 binary64) (cos.f64 theta))) (cos.f64 theta))))
#s(approx (* (cos theta) (sin delta)) (.f64 delta (fma.f64 (.f64 delta delta) (fma.f64 (.f64 delta delta) (fma.f64 (.f64 #s(literal -1/5040 binary64) (.f64 delta delta)) (cos.f64 theta) (.f64 #s(literal 1/120 binary64) (cos.f64 theta))) (*.f64 #s(literal -1/6 binary64) (cos.f64 theta))) (cos.f64 theta))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 delta (sin.f64 theta)) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (fma.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) (.f64 (sin.f64 theta) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 theta) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (fma.f64 (.f64 delta delta) (fma.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) (.f64 (sin.f64 theta) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 theta)) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (sin.f64 theta) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 delta (fma.f64 (.f64 delta delta) (fma.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 theta)) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (.f64 delta delta) (fma.f64 (.f64 #s(literal -1/5040 binary64) (.f64 delta delta)) (.f64 (sin.f64 theta) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (.f64 #s(literal 1/120 binary64) (sin.f64 theta)) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (sin.f64 theta) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (sin delta) (sin theta)) (*.f64 delta (sin.f64 theta)))
#s(approx (* (sin delta) (sin theta)) (.f64 delta (fma.f64 (.f64 #s(literal -1/6 binary64) (*.f64 delta delta)) (sin.f64 theta) (sin.f64 theta))))
#s(approx (* (sin delta) (sin theta)) (.f64 delta (fma.f64 (.f64 delta delta) (fma.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) (sin.f64 theta) (*.f64 #s(literal -1/6 binary64) (sin.f64 theta))) (sin.f64 theta))))
#s(approx (* (sin delta) (sin theta)) (.f64 delta (fma.f64 (.f64 delta delta) (fma.f64 (.f64 delta delta) (fma.f64 (.f64 #s(literal -1/5040 binary64) (.f64 delta delta)) (sin.f64 theta) (.f64 #s(literal 1/120 binary64) (sin.f64 theta))) (*.f64 #s(literal -1/6 binary64) (sin.f64 theta))) (sin.f64 theta))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (fma.f64 delta (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (fma.f64 delta (-.f64 (fma.f64 delta (-.f64 (neg.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))) #s(literal 1 binary64)) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)))) (fma.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (-.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64))) (pow.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (fma.f64 delta (-.f64 (fma.f64 delta (-.f64 (fma.f64 delta (-.f64 (neg.f64 (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal -4/3 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)))) (fma.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)) #s(literal 2 binary64))) (/.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (sin.f64 phi1) (-.f64 (neg.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))) #s(literal 1 binary64)) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)))) (fma.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (-.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64))) (pow.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)) #s(literal 2 binary64)))))) (.f64 (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)) #s(literal 2 binary64)))) (-.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64))))) (neg.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))) #s(literal 1 binary64)) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64))))) (fma.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64))) (/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (-.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) #s(literal 1/2 binary64))) (pow.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)) #s(literal 2 binary64)))) (-.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 #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 #s(literal -1 binary64) delta) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.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 delta (-.f64 (neg.f64 (.f64 delta (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.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 delta (-.f64 (.f64 delta (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (.f64 delta (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 (.f64 #s(literal -1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1) (.f64 delta (fma.f64 (.f64 #s(literal -1/6 binary64) delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (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 delta (cos.f64 phi1)) (cos.f64 theta) (sin.f64 phi1)))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 delta (fma.f64 (.f64 #s(literal -1/2 binary64) delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 delta (fma.f64 delta (fma.f64 (.f64 #s(literal -1/6 binary64) delta) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)))
#s(approx (* delta (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1)) delta)
#s(approx (* delta (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1)) (.f64 delta (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64))))
#s(approx (* delta (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1)) (.f64 delta (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64))))
#s(approx (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1) #s(literal 1 binary64))
#s(approx (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1) (fma.f64 #s(literal -1/6 binary64) (*.f64 delta delta) #s(literal 1 binary64)))
#s(approx (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1) (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (*.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64)))
#s(approx (* delta delta) (*.f64 delta delta))
#s(approx (- (* 1/120 (* delta delta)) 1/6) #s(literal -1/6 binary64))
#s(approx (- (* 1/120 (* delta delta)) 1/6) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)))
#s(approx (* 1/120 (* delta delta)) (.f64 #s(literal 1/120 binary64) (.f64 delta delta)))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (-.f64 (fma.f64 (.f64 #s(literal -1 binary64) delta) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (-.f64 (fma.f64 delta (-.f64 (neg.f64 (.f64 delta (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (-.f64 (fma.f64 delta (-.f64 (.f64 delta (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (fma.f64 (.f64 delta (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 (.f64 #s(literal -1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1) (.f64 delta (fma.f64 (.f64 #s(literal -1/6 binary64) delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (sin.f64 phi1))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 delta (cos.f64 phi1)) (cos.f64 theta) (sin.f64 phi1)))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (fma.f64 delta (fma.f64 (.f64 #s(literal -1/2 binary64) delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (fma.f64 delta (fma.f64 delta (fma.f64 (.f64 #s(literal -1/6 binary64) delta) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 (fma.f64 (.f64 #s(literal -2 binary64) delta) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 (fma.f64 delta (fma.f64 (.f64 #s(literal -1 binary64) delta) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))) #s(literal 1 binary64)) (.f64 #s(literal -2 binary64) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 (fma.f64 delta (fma.f64 delta (-.f64 (neg.f64 (.f64 (.f64 delta (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal -4/3 binary64)))) (fma.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64))) #s(literal 1 binary64))) (.f64 #s(literal -2 binary64) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 4 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) 2) (pow.f64 (cos.f64 delta) #s(literal 2 binary64)))
#s(approx (cos delta) (cos.f64 delta))
#s(approx (* (cos theta) (sin delta)) (*.f64 (cos.f64 theta) (sin.f64 delta)))
#s(approx (* (sin delta) (sin theta)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
#s(approx (* delta (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1)) (*.f64 #s(literal 1/120 binary64) (pow.f64 delta #s(literal 5 binary64))))
#s(approx (* delta (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1)) (.f64 (pow.f64 delta #s(literal 5 binary64)) (-.f64 #s(literal 1/120 binary64) (.f64 #s(literal 1/6 binary64) (pow.f64 delta #s(literal -2 binary64))))))
#s(approx (* delta (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1)) (.f64 (pow.f64 delta #s(literal 5 binary64)) (-.f64 (+.f64 (pow.f64 delta #s(literal -4 binary64)) #s(literal 1/120 binary64)) (.f64 #s(literal 1/6 binary64) (pow.f64 delta #s(literal -2 binary64))))))
#s(approx (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1) (*.f64 #s(literal 1/120 binary64) (pow.f64 delta #s(literal 4 binary64))))
#s(approx (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1) (.f64 (pow.f64 delta #s(literal 4 binary64)) (-.f64 #s(literal 1/120 binary64) (.f64 #s(literal 1/6 binary64) (pow.f64 delta #s(literal -2 binary64))))))
#s(approx (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1) (.f64 (pow.f64 delta #s(literal 4 binary64)) (-.f64 (+.f64 (pow.f64 delta #s(literal -4 binary64)) #s(literal 1/120 binary64)) (.f64 #s(literal 1/6 binary64) (pow.f64 delta #s(literal -2 binary64))))))
#s(approx (- (* 1/120 (* delta delta)) 1/6) (.f64 #s(literal 1/120 binary64) (.f64 delta delta)))
#s(approx (- (* 1/120 (* delta delta)) 1/6) (.f64 (.f64 delta delta) (-.f64 #s(literal 1/120 binary64) (*.f64 #s(literal 1/6 binary64) (pow.f64 delta #s(literal -2 binary64))))))
#s(approx (* delta (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1)) (neg.f64 (.f64 (pow.f64 delta #s(literal 5 binary64)) (-.f64 (.f64 #s(literal 1/6 binary64) (pow.f64 delta #s(literal -2 binary64))) #s(literal 1/120 binary64)))))
#s(approx (* delta (+ (* (* delta delta) (- (* 1/120 (* delta delta)) 1/6)) 1)) (neg.f64 (.f64 (pow.f64 delta #s(literal 5 binary64)) (-.f64 (-.f64 (.f64 #s(literal 1/6 binary64) (pow.f64 delta #s(literal -2 binary64))) #s(literal 1/120 binary64)) (pow.f64 delta #s(literal -4 binary64))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 theta (cos.f64 phi1)) (sin.f64 delta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 theta (fma.f64 (.f64 #s(literal -1/6 binary64) (.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 (.f64 theta theta) (fma.f64 (.f64 #s(literal 1/120 binary64) (.f64 theta theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (.f64 #s(literal -1/6 binary64) (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 (.f64 theta theta) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal -1/5040 binary64) (.f64 theta theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (.f64 #s(literal 1/120 binary64) (cos.f64 phi1)) (sin.f64 delta))) (.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 delta))) (*.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 (fma.f64 (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) (sin.f64 delta) (sin.f64 delta))))
#s(approx (* (sin theta) (sin delta)) (.f64 theta (fma.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal 1/120 binary64) (.f64 theta theta)) (sin.f64 delta) (*.f64 #s(literal -1/6 binary64) (sin.f64 delta))) (sin.f64 delta))))
#s(approx (* (sin theta) (sin delta)) (.f64 theta (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal -1/5040 binary64) (.f64 theta theta)) (sin.f64 delta) (.f64 #s(literal 1/120 binary64) (sin.f64 delta))) (*.f64 #s(literal -1/6 binary64) (sin.f64 delta))) (sin.f64 delta))))
#s(approx (sin theta) theta)
#s(approx (sin theta) (.f64 theta (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64))))
#s(approx (sin theta) (.f64 theta (fma.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 theta theta)) #s(literal 1/6 binary64)) #s(literal 1 binary64))))
#s(approx (sin theta) (.f64 theta (fma.f64 (.f64 theta theta) (-.f64 (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/5040 binary64) (*.f64 theta theta) #s(literal 1/120 binary64))) #s(literal 1/6 binary64)) #s(literal 1 binary64))))
#s(approx theta theta)
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (fma.f64 (.f64 theta theta) (fma.f64 (cos.f64 phi1) (/.f64 (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)) #s(literal 2 binary64)))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (-.f64 (neg.f64 (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 1/12 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (fma.f64 (cos.f64 phi1) (/.f64 (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)) #s(literal 2 binary64))))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 phi1) (/.f64 (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)) #s(literal 2 binary64))))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (neg.f64 (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal -1/360 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 (neg.f64 (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 1/12 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (fma.f64 (cos.f64 phi1) (/.f64 (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)) #s(literal 2 binary64))))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)) #s(literal 2 binary64)))))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (fma.f64 (cos.f64 phi1) (/.f64 (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)) #s(literal 2 binary64))))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))) (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)) #s(literal 2 binary64)))))))) (neg.f64 (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 1/12 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (fma.f64 (cos.f64 phi1) (/.f64 (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)) #s(literal 2 binary64))))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 phi1) (/.f64 (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)) #s(literal 2 binary64))))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 (fma.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (fma.f64 (.f64 theta theta) (-.f64 (neg.f64 (.f64 (.f64 (.f64 theta theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/12 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (neg.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (-.f64 (neg.f64 (.f64 (.f64 (.f64 theta theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal -1/360 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 1/12 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))))
#s(approx (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))
#s(approx (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2)) (fma.f64 (.f64 #s(literal -1 binary64) (.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 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))))
#s(approx (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2)) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 (.f64 theta theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/12 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (neg.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))))
#s(approx (* (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow (sin phi1) 2)) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 (.f64 theta theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal -1/360 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 1/12 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (neg.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))))
#s(approx (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (cos.f64 delta) (sin.f64 phi1))) #s(literal 2 binary64)))
#s(approx (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (fma.f64 (.f64 #s(literal -1 binary64) (.f64 theta theta)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) #s(literal 2 binary64))))
#s(approx (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal 1/12 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))) (neg.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (cos.f64 delta) (sin.f64 phi1))) #s(literal 2 binary64))))
#s(approx (pow (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) 2) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal 1/12 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)) (.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal -1/360 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))))) (neg.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (cos.f64 delta) (sin.f64 phi1))) #s(literal 2 binary64))))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 theta theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))))
#s(approx (+ (* (cos theta) (* (cos phi1) (sin delta))) (* (sin phi1) (cos delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 #s(literal 1/24 binary64) (.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))) (* (sin phi1) (cos delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 #s(literal -1/720 binary64) (.f64 theta theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (cos theta) #s(literal 1 binary64))
#s(approx (cos theta) (fma.f64 #s(literal -1/2 binary64) (*.f64 theta theta) #s(literal 1 binary64)))
#s(approx (cos theta) (fma.f64 (.f64 theta theta) (-.f64 (.f64 #s(literal 1/24 binary64) (*.f64 theta theta)) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
#s(approx (cos theta) (fma.f64 (.f64 theta theta) (-.f64 (.f64 (.f64 theta theta) (fma.f64 #s(literal -1/720 binary64) (.f64 theta theta) #s(literal 1/24 binary64))) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (+.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 theta theta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (cos.f64 delta)))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (+.f64 (fma.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (.f64 #s(literal 1/24 binary64) (.f64 theta theta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (cos.f64 delta)))
#s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (+.f64 (fma.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (.f64 #s(literal -1/720 binary64) (.f64 theta theta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1)))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (cos.f64 delta)))
#s(approx (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (cos delta)) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))
#s(approx (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (cos delta)) (+.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 theta theta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (cos.f64 delta)))
#s(approx (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (cos delta)) (+.f64 (fma.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (.f64 #s(literal 1/24 binary64) (.f64 theta theta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (cos.f64 delta)))
#s(approx (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))) (cos delta)) (+.f64 (fma.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (.f64 #s(literal -1/720 binary64) (.f64 theta theta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1)))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (cos.f64 delta)))
#s(approx (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
#s(approx (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 theta theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.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) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 #s(literal 1/24 binary64) (.f64 theta theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (*.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 (.f64 theta theta) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 #s(literal -1/720 binary64) (.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))) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
#s(approx (* (cos phi1) (* (cos theta) (sin delta))) (fma.f64 (.f64 #s(literal -1/2 binary64) (.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 (.f64 theta theta) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 #s(literal 1/24 binary64) (.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 (.f64 theta theta) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 #s(literal -1/720 binary64) (.f64 theta theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 (cos.f64 phi1) (sin.f64 delta))))
#s(approx (* (cos theta) (sin delta)) (sin.f64 delta))
#s(approx (* (cos theta) (sin delta)) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 theta theta)) (sin.f64 delta) (sin.f64 delta)))
#s(approx (* (cos theta) (sin delta)) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal 1/24 binary64) (.f64 theta theta)) (sin.f64 delta) (.f64 #s(literal -1/2 binary64) (sin.f64 delta))) (sin.f64 delta)))
#s(approx (* (cos theta) (sin delta)) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal -1/720 binary64) (.f64 theta theta)) (sin.f64 delta) (.f64 #s(literal 1/24 binary64) (sin.f64 delta))) (.f64 #s(literal -1/2 binary64) (sin.f64 delta))) (sin.f64 delta)))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 theta (sin.f64 delta)) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 theta (fma.f64 (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 theta (fma.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal 1/120 binary64) (.f64 theta theta)) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 delta)) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 theta (fma.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 delta)) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal -1/5040 binary64) (.f64 theta theta)) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (.f64 #s(literal 1/120 binary64) (sin.f64 delta)) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (sin delta) (sin theta)) (*.f64 theta (sin.f64 delta)))
#s(approx (* (sin delta) (sin theta)) (.f64 theta (fma.f64 (.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) (sin.f64 delta) (sin.f64 delta))))
#s(approx (* (sin delta) (sin theta)) (.f64 theta (fma.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal 1/120 binary64) (.f64 theta theta)) (sin.f64 delta) (*.f64 #s(literal -1/6 binary64) (sin.f64 delta))) (sin.f64 delta))))
#s(approx (* (sin delta) (sin theta)) (.f64 theta (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal -1/5040 binary64) (.f64 theta theta)) (sin.f64 delta) (.f64 #s(literal 1/120 binary64) (sin.f64 delta))) (*.f64 #s(literal -1/6 binary64) (sin.f64 delta))) (sin.f64 delta))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (fma.f64 (.f64 theta theta) (fma.f64 (cos.f64 phi1) (/.f64 (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)) #s(literal 2 binary64)))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (-.f64 (neg.f64 (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 1/12 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (fma.f64 (cos.f64 phi1) (/.f64 (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)) #s(literal 2 binary64))))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 phi1) (/.f64 (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)) #s(literal 2 binary64))))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))))
#s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (-.f64 (fma.f64 (.f64 theta theta) (-.f64 (neg.f64 (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal -1/360 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 (neg.f64 (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 1/12 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (fma.f64 (cos.f64 phi1) (/.f64 (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)) #s(literal 2 binary64))))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)) #s(literal 2 binary64)))))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (fma.f64 (cos.f64 phi1) (/.f64 (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)) #s(literal 2 binary64))))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))) (.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)) #s(literal 2 binary64)))))))) (neg.f64 (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 1/12 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (fma.f64 (cos.f64 phi1) (/.f64 (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)) #s(literal 2 binary64))))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 phi1) (/.f64 (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))) (pow.f64 (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta)) #s(literal 2 binary64))))))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (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 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 theta theta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1)) (cos.f64 delta)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (fma.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal -1/24 binary64) (.f64 theta theta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1)))) (cos.f64 delta)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
#s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (-.f64 (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal 1/720 binary64) (.f64 theta theta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1)) (.f64 #s(literal -1/24 binary64) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1)))) (cos.f64 delta)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 theta theta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (.f64 #s(literal 1/24 binary64) (.f64 theta theta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
#s(approx (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (.f64 #s(literal -1/720 binary64) (.f64 theta theta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1)))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 theta theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.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) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 #s(literal 1/24 binary64) (.f64 theta theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 #s(literal -1/720 binary64) (.f64 theta theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (-.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 theta theta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1)) (cos.f64 delta)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (-.f64 (fma.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal -1/24 binary64) (.f64 theta theta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1)))) (cos.f64 delta)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
#s(approx (- (cos delta) (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))))) (-.f64 (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal 1/720 binary64) (.f64 theta theta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1)) (.f64 #s(literal -1/24 binary64) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1)))) (cos.f64 delta)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 theta theta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (.f64 #s(literal 1/24 binary64) (.f64 theta theta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
#s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (.f64 #s(literal -1/720 binary64) (.f64 theta theta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1)))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 theta theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.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) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 #s(literal 1/24 binary64) (.f64 theta theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 theta theta) (fma.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 phi1)) (sin.f64 delta) (.f64 (.f64 #s(literal -1/720 binary64) (.f64 theta theta)) (.f64 (cos.f64 phi1) (sin.f64 delta)))))) (.f64 (cos.f64 phi1) (sin.f64 delta)))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 (fma.f64 (.f64 theta theta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (fma.f64 (.f64 theta theta) (-.f64 (neg.f64 (.f64 (.f64 (.f64 theta theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/12 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (neg.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))))
#s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (fma.f64 (.f64 theta theta) (fma.f64 (.f64 theta theta) (-.f64 (neg.f64 (.f64 (.f64 (.f64 theta theta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal -1/360 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal -1/24 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 1/12 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) #s(literal 2 binary64)))))) (.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))))
#s(approx (sin theta) (sin.f64 theta))
#s(approx (cos theta) (cos.f64 theta))

eval209.0ms (1.9%)

Memory: 6.2MiB live, 536.4MiB allocated; 65ms collecting garbage
Compiler: Compiled 96 295 to 5 693 computations (94.1% saved)

prune148.0ms (1.3%)

Memory

12.6MiB live, 344.7MiB allocated; 14ms collecting garbage

Pruning

77 alts after pruning (71 fresh and 6 done)

	Pruned	Kept	Total
New	1 128	24	1 152
Fresh	2	47	49
Picked	3	2	5
Done	0	4	4
Total	1 133	77	1 210

Accuracy

99.9%

Counts

1 210 → 77

Alt Table

Click to see full alt table

Status	Accuracy	Program
	67.6%	(/.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))))))
	55.7%	(/.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) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))) (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))) (-.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta)))))
	50.7%	(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (-.f64 (pow.f64 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))))
	99.6%	(+.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 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi1) #s(literal 0 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) #s(literal 1 binary64))) (.f64 (.f64 (sin.f64 phi1) #s(literal 0 binary64)) (.f64 (cos.f64 phi1) #s(literal 1 binary64)))))) (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.6%	(+.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) (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))
	85.3%	(+.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) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (*.f64 delta (cos.f64 phi1)) (cos.f64 theta) (sin.f64 phi1)))))))
	86.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (fma.f64 (cos.f64 delta) (cos.f64 delta) (.f64 (neg.f64 (pow.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) #s(literal 2 binary64))) (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 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (cos.f64 delta))))))
	99.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) (.f64 (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (sin.f64 phi1)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (pow.f64 (.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) (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 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (cos.f64 delta))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 delta) (cos.f64 delta) (+.f64 (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64)) (-.f64 (.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64))) (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))))) (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) #s(literal 2 binary64)) (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 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))))))
	99.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) #s(literal 2 binary64)) (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))) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))))))
	88.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 #s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (pow.f64 (cos.f64 delta) #s(literal 2 binary64))) #s(approx (+ (cos delta) (* (+ (* (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) (.f64 (cos.f64 theta) (sin.f64 delta)))) (cos.f64 delta))))))
	80.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 #s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64))))))
	80.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 #s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (fma.f64 (sin.f64 phi1) #s(approx (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 delta))))))
	80.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 #s(approx (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(approx (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1))) (cos.f64 delta)))))
	86.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (sin.f64 delta) #s(literal 0 binary64)) (-.f64 (.f64 (.f64 (cos.f64 delta) #s(literal 1 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64))) (.f64 (.f64 (sin.f64 delta) #s(literal 0 binary64)) (.f64 (cos.f64 delta) #s(literal 1 binary64)))))) (.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)))))))
✓	99.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	82.9%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64))) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	68.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 #s(approx (sin phi1) (.f64 phi1 (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) #s(literal 1 binary64)))) (cos.f64 delta)))))))
	80.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 #s(approx (sin phi1) phi1) (cos.f64 delta)))))))
	92.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) (- (* 1/24 (* phi1 phi1)) 1/2)) 1) #s(literal 1 binary64))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	81.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 #s(approx ( (cos theta) (sin delta)) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	99.6%	(+.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))))))))
	80.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (fma.f64 (cos.f64 theta) (sin.f64 delta) (*.f64 phi1 (cos.f64 delta))))))))
	95.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (* (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))))))))
	84.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (fma.f64 #s(approx (* delta (cos phi1)) delta) (cos.f64 theta) (sin.f64 phi1)))))))
	85.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))) #s(approx (+ (* (* delta (cos phi1)) (cos theta)) (sin phi1)) (fma.f64 delta (cos.f64 phi1) (sin.f64 phi1))))))))
✓	86.8%	(+.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)))))))
	86.8%	(+.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 theta) (sin delta)) (sin.f64 delta)))))))
	81.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (sin phi1) (.f64 phi1 (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64))) #s(literal 1/6 binary64)) #s(literal 1 binary64)))) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	79.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (sin phi1) (.f64 phi1 (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) #s(literal 1 binary64)))) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	78.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (sin phi1) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)))) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	82.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (sin phi1) phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	92.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)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	73.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) #s(approx (* (sin phi1) (+ (* (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta)))) (.f64 phi1 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 phi1 (cos.f64 delta))))))))
	79.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (fma.f64 delta (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (.f64 (sin.f64 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (pow.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 1 binary64)) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
	80.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	75.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))))))
✓	88.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	76.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(approx (cos delta) (fma.f64 #s(literal -1/2 binary64) (*.f64 delta delta) #s(literal 1 binary64))))))
	75.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(approx (cos delta) #s(literal 1 binary64)))))
	80.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
	74.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (*.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	74.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) #s(approx (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	65.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 delta (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64))))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) #s(approx ( (sin phi1) (cos delta)) (sin.f64 phi1)))))))
	66.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 delta (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64))))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 #s(approx (sin phi1) phi1) (fma.f64 (.f64 (cos.f64 theta) (sin.f64 delta)) #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) (cos.f64 delta)))))))
	75.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 delta (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64))))) (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))))))
	71.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 #s(approx (sin theta) theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	71.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 (.f64 theta (cos.f64 phi1)) (sin.f64 delta))) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	77.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 (.f64 delta (cos.f64 phi1)) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (+ ( (* (cos theta) (sin delta)) (cos phi1)) (* (sin phi1) (cos delta))) (fma.f64 (*.f64 delta (cos.f64 phi1)) (cos.f64 theta) (sin.f64 phi1)))))))
	71.6%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 (.f64 delta (cos.f64 phi1)) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	73.4%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (sin.f64 (+.f64 delta (/.f64 (PI.f64) #s(literal 2 binary64)))))))
✓	85.6%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	73.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(approx (cos delta) (fma.f64 #s(literal -1/2 binary64) (*.f64 delta delta) #s(literal 1 binary64))))))
	73.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(approx (cos delta) #s(literal 1 binary64)))))
	69.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 (sin.f64 delta) #s(approx (sin theta) (.f64 theta (fma.f64 #s(literal -1/6 binary64) (.f64 theta theta) #s(literal 1 binary64)))))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	70.2%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 (sin.f64 delta) #s(approx (sin theta) theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	69.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 #s(approx (sin delta) (.f64 delta (fma.f64 #s(literal -1/6 binary64) (.f64 delta delta) #s(literal 1 binary64)))) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	71.1%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 #s(approx (sin delta) delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
	73.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (.f64 theta (cos.f64 phi1)) (sin.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)))))))
	85.8%	(+.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)))))))
	85.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (fma.f64 (cos.f64 phi1) (sin.f64 delta) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))
✓	84.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	84.5%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) #s(approx (* (cos theta) (sin delta)) (sin.f64 delta)))))))
	79.8%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 #s(approx (sin phi1) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 phi1 phi1) #s(literal 1 binary64)))) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	81.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 #s(approx (sin phi1) phi1) #s(approx (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
	84.0%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
	72.7%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) #s(approx ( (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))) (.f64 phi1 (fma.f64 (cos.f64 theta) (sin.f64 delta) (.f64 phi1 (cos.f64 delta))))))))
	73.9%	(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (cos phi1)) (.f64 (sin.f64 delta) (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))))))
	34.6%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))
	34.6%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (/ (- (pow (cos delta) 2) (pow (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))) (cos.f64 delta)))))
	34.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 (.f64 (cos.f64 phi1) (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.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))))))) (.f64 lambda1 (+.f64 (/.f64 (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 1 binary64))))
	34.6%	#s(approx (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (+ (* (sin delta) (cos (/ (PI) 2))) (* (cos delta) (sin (/ (PI) 2))))) (* (* (cos phi1) (sin delta)) (cos theta))))))))) (atan2.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 delta) (.f64 (cos.f64 delta) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta))))))))
✓	66.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 12 037 to 3 472 computations (71.2% saved)

regimes257.0ms (2.3%)

Memory

-2.5MiB live, 437.9MiB allocated; 24ms collecting garbage

Counts

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

Calls

7 calls:

65.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)))))))))
39.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))))))))
33.0ms	theta
29.0ms	delta
28.0ms	phi1

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes252.0ms (2.3%)

Memory

27.0MiB live, 387.2MiB allocated; 28ms collecting garbage

Counts

107 → 1

Calls

Call 1

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

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

Calls

7 calls:

49.0ms	delta
46.0ms	lambda1
35.0ms	theta
32.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))))))))
29.0ms	phi1

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes252.0ms (2.3%)

Memory

14.3MiB live, 432.9MiB allocated; 93ms collecting garbage

Counts

104 → 1

Calls

Call 1

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

Calls

7 calls:

61.0ms	delta
43.0ms	theta
36.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)))))))))
32.0ms	phi2
25.0ms	lambda1

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes228.0ms (2.1%)

Memory

-1.8MiB live, 331.5MiB allocated; 106ms collecting garbage

Counts

100 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

76.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))))))))
25.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	theta
24.0ms	phi2
24.0ms	delta

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes614.0ms (5.5%)

Memory

-52.0MiB live, 292.2MiB allocated; 953ms collecting garbage

Counts

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

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:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes163.0ms (1.5%)

Memory

-49.8MiB live, 161.3MiB allocated; 32ms collecting garbage

Counts

78 → 1

Calls

Call 1

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes112.0ms (1%)

Memory

-1.0MiB live, 145.6MiB allocated; 12ms collecting garbage

Counts

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes65.0ms (0.6%)

Memory

15.0MiB live, 103.8MiB allocated; 7ms collecting garbage

Counts

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

Outputs

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes75.0ms (0.7%)

Memory

15.8MiB live, 71.3MiB allocated; 25ms collecting garbage

Counts

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

Outputs

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

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

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
88.3%	1	`phi2`
90.7%	2	`phi1`
93.8%	3	`delta`
92.5%	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))))))))`
92.5%	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)))))))))`
88.3%	1	`lambda1`
88.3%	1	`theta`

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes14.0ms (0.1%)

Memory

-19.2MiB live, 24.7MiB allocated; 9ms collecting garbage

Counts

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

Outputs

(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (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) #s(approx (sin delta) (*.f64 delta (fma.f64 (*.f64 delta delta) (-.f64 (*.f64 #s(literal 1/120 binary64) (*.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64))))) (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 (*.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

1 calls:

12.0ms

delta

Results

Accuracy	Segments	Branch
93.7%	3	`delta`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes36.0ms (0.3%)

Memory

3.7MiB live, 49.9MiB allocated; 1ms collecting garbage

Counts

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

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

6 calls:

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

Results

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

Compiler

Compiled 68 to 65 computations (4.4% saved)

regimes35.0ms (0.3%)

Memory

-5.5MiB live, 41.5MiB allocated; 1ms collecting garbage

Counts

17 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

5.0ms	lambda1
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	theta
5.0ms	phi1
5.0ms	phi2

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes19.0ms (0.2%)

Memory

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

Counts

7 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes7.0ms (0.1%)

Memory

-39.0MiB live, 13.6MiB allocated; 4ms collecting garbage

Counts

3 → 3

Calls

Call 1

Inputs

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

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

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

Outputs

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

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

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

Calls

2 calls:

5.0ms	delta
2.0ms	theta

Results

Accuracy	Segments	Branch
78.5%	3	`delta`
78.6%	3	`theta`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes10.0ms (0.1%)

Memory

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

Outputs

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

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)))))))))
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
1.0ms	delta

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

regimes9.0ms (0.1%)

Memory

-31.7MiB live, 15.1MiB allocated; 1ms 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:

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	phi1
1.0ms	theta

Results

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

Compiler

Compiled 69 to 70 computations (-1.4% saved)

bsearch74.0ms (0.7%)

Memory

22.0MiB live, 68.7MiB allocated; 1ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
34.0ms	1.7862650412240208e-12	2.7767369405680254e-9
34.0ms	-1.2828714235763415e+39	-4.405130344762263e+37

Samples

57.0ms

240×

valid

Compiler

Compiled 1 146 to 886 computations (22.7% saved)

Precisions

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

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

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

ival-mult: 8.0ms (16.5% of total)

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

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

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

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

adjust: 0.0ms (0% of total)

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

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

bsearch3.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	1.7862650412240208e-12	2.7767369405680254e-9
1.0ms	-1.2828714235763415e+39	-4.405130344762263e+37

Compiler

Compiled 1 371 to 1 006 computations (26.6% saved)

bsearch66.0ms (0.6%)

Memory

-11.6MiB live, 85.1MiB allocated; 8ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
16.0ms	1.3909735421710715e-10	2.2280797460409841e-10
45.0ms	-8.13409336509489e+28	-7.269340359521417e+25

Samples

50.0ms

192×

valid

Compiler

Compiled 1 956 to 1 003 computations (48.7% saved)

Precisions

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

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

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

ival-mult: 7.0ms (17.5% of total)

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

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

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

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

adjust: 0.0ms (0% of total)

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

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

bsearch34.0ms (0.3%)

Memory

-16.9MiB live, 29.8MiB allocated; 3ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	1.3909735421710715e-10	2.2280797460409841e-10
31.0ms	-8.13409336509489e+28	-7.269340359521417e+25

Samples

26.0ms

96×

valid

Compiler

Compiled 1 956 to 991 computations (49.3% saved)

Precisions

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

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

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

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

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

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

ival-atan2: 1.0ms (4.4% 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)

simplify66.0ms (0.6%)

Memory

26.3MiB live, 68.4MiB allocated; 7ms collecting garbage

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	168	1117
1	298	1087
2	642	1075
3	1835	1075
4	7113	1075

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 (fma.f64 (cos.f64 delta) (cos.f64 delta) (.f64 (neg.f64 (pow.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) #s(literal 2 binary64))) (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 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (cos.f64 delta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) #s(literal 2 binary64)) (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 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (cos.f64 delta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64))) #s(approx (+ (cos delta) ( (+ (* (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) (.f64 (cos.f64 theta) (sin.f64 delta)))) (cos.f64 delta))))))
(+.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 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 delta #s(literal -44999999999999996153544530833428185088 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 delta #s(literal 1662273001970115/604462909807314587353088 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))))
(if (<=.f64 delta #s(literal -44999999999999996153544530833428185088 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 delta #s(literal 1662273001970115/604462909807314587353088 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 delta (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64))))) (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 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
(if (<=.f64 theta #s(literal -73999999999999997684744192 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(approx (cos delta) #s(literal 1 binary64))))) (if (<=.f64 theta #s(literal 8510837770086989/38685626227668133590597632 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 (sin.f64 delta) #s(approx (sin theta) theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(approx (cos delta) #s(literal 1 binary64)))))))
(if (<=.f64 theta #s(literal -449999999999999978491609088 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 #s(approx (sin delta) delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta)))) (if (<=.f64 theta #s(literal 8510837770086989/38685626227668133590597632 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 (sin.f64 delta) #s(approx (sin theta) theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 #s(approx (sin delta) delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 #s(approx (sin delta) delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
#s(approx (+ 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 (fma.f64 (cos.f64 delta) (cos.f64 delta) (.f64 (neg.f64 (pow.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) #s(literal 2 binary64))) (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 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (cos.f64 delta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (fma.f64 (cos.f64 delta) (cos.f64 delta) (.f64 (pow.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) #s(literal 2 binary64)) (neg.f64 (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 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (cos.f64 delta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (.f64 (pow.f64 (fma.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) (cos.f64 delta))) #s(literal 2 binary64)) (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 (sin.f64 phi1) (fma.f64 (cos.f64 delta) (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 delta)))) (cos.f64 delta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (pow.f64 (.f64 (fma.f64 (sin.f64 phi1) (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (sin.f64 phi1)) #s(literal 2 binary64))) #s(approx (+ (cos delta) ( (+ (* (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) (.f64 (cos.f64 theta) (sin.f64 delta)))) (cos.f64 delta))))))
(+.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 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 delta #s(literal -44999999999999996153544530833428185088 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 delta #s(literal 1662273001970115/604462909807314587353088 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))))
(if (or (<=.f64 delta #s(literal -44999999999999996153544530833428185088 binary64)) (not (<=.f64 delta #s(literal 1662273001970115/604462909807314587353088 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))))))
(if (<=.f64 delta #s(literal -44999999999999996153544530833428185088 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 delta #s(literal 1662273001970115/604462909807314587353088 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) #s(approx (sin delta) (.f64 delta (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64))))) (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 (.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 (or (<=.f64 delta #s(literal -44999999999999996153544530833428185088 binary64)) (not (<=.f64 delta #s(literal 1662273001970115/604462909807314587353088 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) #s(approx (sin delta) (.f64 delta (fma.f64 (.f64 delta delta) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 delta delta)) #s(literal 1/6 binary64)) #s(literal 1 binary64))))) (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 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(approx (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
(if (<=.f64 theta #s(literal -73999999999999997684744192 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(approx (cos delta) #s(literal 1 binary64))))) (if (<=.f64 theta #s(literal 8510837770086989/38685626227668133590597632 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 (sin.f64 delta) #s(approx (sin theta) theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(approx (cos delta) #s(literal 1 binary64)))))))
(if (or (<=.f64 theta #s(literal -73999999999999997684744192 binary64)) (not (<=.f64 theta #s(literal 8510837770086989/38685626227668133590597632 binary64)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 (sin.f64 delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) #s(approx (cos delta) #s(literal 1 binary64))))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 (sin.f64 delta) #s(approx (sin theta) theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta)))))
(if (<=.f64 theta #s(literal -449999999999999978491609088 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 #s(approx (sin delta) delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta)))) (if (<=.f64 theta #s(literal 8510837770086989/38685626227668133590597632 binary64)) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 (sin.f64 delta) #s(approx (sin theta) theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 #s(approx (sin delta) delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))))
(if (or (<=.f64 theta #s(literal -449999999999999978491609088 binary64)) (not (<=.f64 theta #s(literal 8510837770086989/38685626227668133590597632 binary64)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 #s(approx (sin delta) delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta)))) (+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 (sin.f64 delta) #s(approx (sin theta) theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta)))))
(+.f64 lambda1 (atan2.f64 #s(approx (* (* (sin theta) (sin delta)) (+ (* (sin phi1) (cos (/ (PI) 2))) (* (cos phi1) (sin (/ (PI) 2))))) (.f64 #s(approx (sin delta) delta) (sin.f64 theta))) #s(approx (/ (- (pow (cos delta) 2) (pow ( (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)) 2)) (+ (cos delta) (* (+ (* (sin phi1) (cos delta)) (* (cos theta) (* (cos phi1) (sin delta)))) (sin phi1)))) (cos.f64 delta))))
#s(approx (+ 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)

derivations370.0ms (3.3%)

Memory

-24.1MiB live, 310.9MiB allocated; 30ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 1 153 to 171 computations (85.2% saved)

preprocess95.0ms (0.9%)

Memory: 26.9MiB live, 117.7MiB allocated; 9ms collecting garbage
Remove: (abs phi2)
Compiler: Compiled 2 680 to 552 computations (79.4% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze1.4s (12.7%)

sample3.7s (32.9%)

explain503.0ms (4.5%)

preprocess204.0ms (1.8%)

eval0.0ms (0%)

prune1.0ms (0%)

series61.0ms (0.5%)

rewrite205.0ms (1.8%)

eval55.0ms (0.5%)

prune32.0ms (0.3%)

series135.0ms (1.2%)

rewrite221.0ms (2%)

eval176.0ms (1.6%)

prune89.0ms (0.8%)

series112.0ms (1%)

rewrite271.0ms (2.4%)

eval261.0ms (2.4%)

prune102.0ms (0.9%)

series141.0ms (1.3%)

rewrite262.0ms (2.4%)

eval209.0ms (1.9%)

prune148.0ms (1.3%)

regimes257.0ms (2.3%)

regimes252.0ms (2.3%)

regimes252.0ms (2.3%)

regimes228.0ms (2.1%)

regimes614.0ms (5.5%)

regimes163.0ms (1.5%)

regimes112.0ms (1%)

regimes65.0ms (0.6%)

regimes75.0ms (0.7%)

regimes14.0ms (0.1%)

regimes36.0ms (0.3%)

regimes35.0ms (0.3%)

regimes19.0ms (0.2%)

regimes7.0ms (0.1%)

regimes10.0ms (0.1%)

regimes9.0ms (0.1%)

bsearch74.0ms (0.7%)

bsearch3.0ms (0%)

bsearch66.0ms (0.6%)

bsearch34.0ms (0.3%)

simplify66.0ms (0.6%)

derivations370.0ms (3.3%)

preprocess95.0ms (0.9%)

end0.0ms (0%)

Profiling